G 6 


a 
Cad 
~N 


IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 


000 
33 
000 
000 
000 
000 
i 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
00 
00¢c 
00Cc 
: 


H 10 
$ 
s 
$s 
$ 
$ 
$s 


wn NNNMN 
nn nn nn 
nn mn nn 
nun “nn nn 
nn nn nw 
nn nn “nw 
nn wn nn 
YNNYN Vw 
wy YNNnw 
wy NMNNYM 
vv mn nw 
wu nn nn 
mer nn nn 
nn nn nn 
nw nn nn 
nn nw nn 
NNN nw 
nnn mn 
o o nn YNNwW 
S88sssssss nn NNNM 
oO oo "nn nn mn 
S Ss “own nn nn 
o nn "nn nw 
oO oS nn nn nn 
Ss Ss nn “nn nn 
wn nn nn 


S8888S8S88 AaAA an 


ecacacac ca 
eccacac ca 
ca ca ca wet oe 
cc ca ca ae ee 
ca aecaca ee 
ca cccac te a nd et ne eg ss a 
ca ca og ome — 
cc ca oes roel 
qQaaaacaacaacaacaaca 
| @Qaacaacaacaacaacaca 
j wwe ww a 
Vu ww alten 
wu ww ar 
ww ww ee: ee 
Vu vu otal 
wu ww per eee 
Vw ww aail 
wwvV ww walteall 
WBYYVUYYUUYUY ad ad od od I I I I I I I I 
WBMeVVUUUUVYY ed ed ad od od oh I I od I I 


FILE**ID**CROSS 


2 


LIB_CROSS 


1 
§ 
4 
5 
? 
8 
9 
0 
1 
§ 
4 
5 
6 
7 
8 
9 
0 
1 
: 
4 
5 
6 
7 
8 
a 
0 
1 
5 
4 
5 


Be Se Be Se Se Se Se Fe Be Se Se Se Fe Se Se Se Se Ge SH Se Se Se Se Se Se Ge oe Se Se Se Se Se Oe Se Se Se Se Oe Oe Se Se Se Oe Se Se Oe Ss Se HSH Se Se Se Oe ee ee 


ne tet ee tet a ee ay eh Na eee oe 


fwnr—-O0On 


45 


S 


oo: 
DOONAN E WN $C ODNOUNE WN O OONOUE WO OONOU Ewin 


WARIPOPONOMINONINONIND 2 2 2 3 SS SS BOO OOO 


SOoOOCOOCOoOoOoOOCOOoOoOoOOOOOOOoOOoOSooOoOO 
pe jefolololololololeololololelololeleolq) 


Oooooo 


SOOoooooooooo 
SSsssssssssss 
WWAIA AAAI 


a a kk kk kk kk tk ad kt ss 8 8 8 2 IO 


10 
b-Sen-1984 91:38:03 VAX-11 Bliss-32 V4.0-742 


MODULE Lib_cross ( 'Cross reference of an object library 


{DENTS " YOS=900" 


BEGIN 


' 
PRR ER EAR AR AAR AEE AERA REA AEA A ARERR AAA AERA 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH F 


IE 
SUCH ait i AND WITH THE 


® 

® 

® 

wr 

® 

® 

® 

® 

i © « 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

is CORPORATION. * 
® 

® 

® 

® 

® 

* 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
Vee AR ARR AAAAEARAAEAARA RARER AAAS 
1 

i 

lee 

: 

} FACILITY: Library command processor 

i ABSTRACT: 


The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
command. It utilizes the Librarian procedure set to perform 
the actual modifications to the Library. 

i ENVIRONMENT : 


VAX native, user mode. 


Libraries which have the new object records. 


AUTHOR: Benn Schreiber, CREATION DATE: 09-Oct-1979 
i MODIFIED BY: 
i v03-001 JwT0090 Jim Teague 19-Jan-1983 
Teach Librarian how to cross reference object 
i 
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ee ce me ee ee ee cm me me me DD ee a ded od od od od od 


LIBRARY 
acquine *SYSSLIBRARY:STARLET.L32'; 'System macro definitions 
"PREFIX'; 'SET OF GENERAL MACROS ETC 
REQUIRE 
"LIBDEF'; ‘Librarian structure defs. 
REQUIRE 
"LBRDEF'; 'Library processor defs. 
REQUIRE 
"CRFMDL'; 'Cross ref. internal defines. 
EXTERNA 


lortel_rassty : ADDRESSING _MODE (GENERAL), !RMS STV from Librarian 
Lib$Sgl_creflags : BLOCK, 'Cross reference indicator flags 


Lib$gl_modnamix, 'Index for module names 
Lib$Sgl_modlisl : VECTOR ‘List head for /ONLY 
Lib$gl-outfdb : REF BBLOCK, iPointer to output FDB 
Lib$Sgl_ctimsk : BLOCK [1J, !Control ee & 
Lib$gl_libfdb : REF BBLOCK, !Pointer to ae fdb 
Lib$Sgl_inpfdb : REF BBLOCK, !Pointer to input file fdb 
Lib$Sal_rab : BBLOCK, 'RAB for output 
L ibsat type. it ype of librar 
Lib$Sgl_Libctl; 'Library control index 
FORWARD ROUTINE 
Lib_crfout, ‘Output one cref Line 
newpage, 'New page for Listin 
outputsubhdr, ‘Output cref sub header 
crferror, ‘Error handler for cross reference errors 
cross_one_module, 'Cross reference one module 
prohdr, ‘Routine to process module headers 
progsd, ‘Routine to process gsd records 
pronul, ‘Routine to process ignored records 
propsectdef, ‘Process p-section definitions 
symbols, 'Process symbol definitions and references 
entpnts ‘Process entry point definitions 
procedef, 'Process procedure declarations 
pro_epmw, 
pro_idc, 
pro_env, 
pro_lsy, 
pro_lepm, 
pro_lpro, 
pro_spsc 
prosymbol; 'Do all the work of symbol resolution 
EXTERNAL ROUTINE 
Lib_open_out, ‘Open output file 
Lib_close_out, 'Close output file 
Lib_get_mem, ‘Allocate virtual qenery 
Lib_get_zmem, ‘Allocate gerpee virtual memory 
Lib_free_mem, ‘and give it back 
Lib Lo9.0p 'Log operation on console 
SYSSFAO-: ADDRESSING_MODE (GENERAL) ‘Formatted ASCII output 
crtSinsrtkey : ADDRESSING_MODE (GENERAL), 
crfS$insrtref : ADDRESSING_MODE (GENERAL), 


K 10 
9-300) 
-Sep-1 


tsi ) 
L), 
L), 
L), 


nes 
: ADDRESSIN 
get_record : AD 


5 
D 
: ADD 
: ADDRES 
; 
get_index : ADDRE 


_nomtcnfou, 
ndexerr, 


i 
lLookuperr; 


OWN 
gsdoffset 
symbolstring : REF VECTOR C,BYTE), 
recdesc : BBLOCK Cdsc$c_s_b(n], 


undi, 
curmod : REF BBLOCK, 
pynootval. 
Linecount, 
Linesperpage, 
pagenum, 
current_time : 
Listingwidth : 
cursubhdr : REF BB 
curheader : REF BB 
maxsyming, 
maxmod|ng 
a_zero : INITIAL (0), 
Listdefext : descriptor ("SYSS$DISK:(CJ.LIS"), 


! Headers for top of page 


WN "OO ONOVE WN “OVD OnOu 


(2) 
(LibSe_Lisrectng), 


COCO SI SIN SISSIES PAA AAA AAA AMM ES EE 


SODWNAUES WN $9 ODNAUE WN $9 ODNAU LW OOWODNOAOUE WN OOONOULS WT 


WN 0 OONOUESWUND) “OC OODNOUESWN"OV0O@~ 
ee ee ee ee ee ee ee ee ee SS SY 


ee ee ee ee ee ce ce ee ce ee ee ce ce ee ee ce ce ce ce ee ec ce ee ce ee ee ee ee ee ee ed ae ed 
Ry et he et rt tet at hat aay el A ae rp tet there a a a eae are 
oOnow w 
POPSPOPOPONONDPIPOPINOPOPINOPPINOPININPOPINOPPINIPURINOPUPINONPOPIPO PUP PIPOPURIPUPOPOPINOPIPOPONONUNONOPUPUNONyD 
eS SS ST TS LS LT ee ee ee ee ee ee eS SS S| 


Be 12:99:38 


Pe (stringdesc 


#2] INITIAL (stringdesc ( 
mbols...') 
110<!Se-i>'{Oe-")), 
#2) 


crfsymheader : descriptor (' 
crfvalheader : descriptor (‘Cross reference b 
crfmdfheader : descriptor ( 
: ; crfmrfheader : descriptor 
8 Sub headers for cross reference 
5 crfsymsubhdr : BBLOCK Cdsc$c_s_bln*2) 
P 128 crfsymsubproto! : BBLOCK Cdsc$c_s_blni INITI 
3 "< ye ghar Tievelyen2 st 
P crfsymsubproto2 : BBLOCK [dsc$c_s_bln] INITI 
9 *<Defined By! 5Reference 
P 1291 crfsymsubproto3 : BBLOCK Cdsc$c_s_bln 
.] <'6e=!>!11121Sa-!> 
P 129 crfsymsubproto4 : BBLOCK Cdscte s_bln 
94 <!108-!>!17#=")) 
P 1295 crfvalsubhdr : BBLOCK Edsc$c_s bine?) 
9 9 a | <Vallet>Sy 
0 G stringdesc _ 
1 98 crfmdfsubhdr : BBLOCK Cdsc$c_s_blne2], 


-742 Page 
AR. SRCICROSS.B32;1" (2 
‘Insert key name definition into cross reference 

‘Insert key reference into cross reference 

jpyteut cross reference 

‘Figure number of Lines per page 

'Find module by RFA 

'Read a record 

'Return contents of index 


'No match found 

'Not an object Library 
'No match found 

'Index error 

‘Lookup error in Library 


'Offset into concatenated gsd record 
'‘Pointer to current symbol 

'String descriptor for record 

‘True when one found 

‘Pointer to current module descriptor 
‘Value of current symbol 

‘Number of Lines on current page 
‘Number of Lines per page 

‘Current page number 

‘Current time 

‘Width of Listing Line 

‘Pointer to current sub header _ 
‘Pointer to current header descriptor 
‘Maximum Length of symbol seen 
‘Maximum Length of module seen 

'A long zero 

'New default filename for Listing file 


Cross reference by symbol'), 


value’) 


‘Cross reference of definitions in module’), 
("Cross reference of references in module’), 


‘Final string descriptor stored here | 


'Subheader for cref by symbol 


( 
AL (strin desc ( 
INITIAL’ (Str ingdese ( 
J INITIAL (stringdesc ( 


'Subheader for cref by value 


‘Final string descriptor stored here 


10 
16-Sep-1984 248: 
1$-00-1 984 01:48:05 
crfmdfsubproto! : BBLOCK Cdsc$c_s_bln] INITIAL (str {ngdesc ( 


<Module! >SymBol ge initions...')), 
crfmdfsubproto2 : BBLOCK dse5e s_blnj INITIAL (stringdesc( 
<!6w-!>!21%-%)) 


crfmrfsubhdr : BBLOCK Edse$c_s_blnse 
crfmrfsubprotol : BBLOCK Cdsc$e_s_binj INITIAL (stringdesc ( 
Module: 23yabot references...')) 
i 


e eee e 
crfmrfsubproto2 : wet} ¢ st, §eSed ind INITIAL (stringdesc ( 


fao_newpage : descriptor ('!*') 

fao_pageheader : descriptor (''40AS '60AS !17%D Page !UL"), 
fao_crefao : Seocr ioter C"!ACHULIAC'), 

fao_crefao2 : descriptor ("!AC!UL!AS!UL!AS'), 

ao_crefaoS : descriptor ("!AC!UL!AS'), 

fao_exclam : Sounseges? ite ‘eh * 

: countedstring (‘AC'), 


: LOCK e 
feo. syndese BBLOCK Cdsc$c_s_bln] INITIAL (8, fao_sym), 


Ld8.ck SS 


WN" OODONOUfwr 


—— § ~HOOSBOKODOCOO0OD 


VB AN 9 ODONOAUNEWIN  9 ODNAUE WIN OOD NAU EWN OOONOAUES WAR" OODNOAUESWN OO 


WWIWAIWAININAWAAAIANIN 


oon 


i] 
Cross reference data base 


v7 Uv 07 uv 
ee ee ee ce ee ce ce ce ee ce ce ce ce ce ce ce ce ce ae ce ce ce ee ce ce me ce ee re ec ce ee ee ce ee ce ce ee ee ee ee ee ed ee eed ed 
ee me ee em ee me ee me ee ee ee ed ed ed dd ed od od od 


POPIPOROPOPIPOPONRIPIPIPINOPONYUR I POPUNINININPIDINININININIRY) tt tt tt a 


31 
Hy 
1 
90 31 
91 31 
3¢ 31 
3c 33 
95 P 132 symbolfield : Scrffield (fao_string = ‘!31AC', 
96 $5 eld_width = 31), 
44 35 symbolend : $crffieldend, 
99 P 132 spacefield : $crffield (fao string ee F, 
00 32 field_width = 1), 
3 $$ spaceend : $crffieldend, 
08 B ty nullfield : $crffield (foo string ile 
04 33 tiéld_width = 05, 
8 $3 nullend : $crffieldend, 
07 P +H valuefield : Scrffield (fao_string = ‘!XL', 
08 33 field_width = 8), 
4 $3 valueend : $crffieldend, 
11 P 133 valueflags : Scrffield (fao string = '!3e * 
1g 33 field_width = 3), 
1 P 134 reloc_suf : Scrffield (bit_mask = gsy$m_rel, 
14 P 134 fao string = oR ', 
15 4 tield_wid h = 3), 
16 P 134 undef_suf : Scrffield (bit_mask = gsy$m_def, 
17 P 134 set.clear = 0, 
18 P 134 fao_ string = ‘-* ', 
19 34 field_width = 3), 
$9 ‘ valflgsend : $crffieldend, 
22 P 3 refnceflags : Scrffield (fao_string = '!3* ', 
23 5 eld width = 3), 
4 P 135 weak_pre : Scrffield (bit_mask = gsy$m_weak, 
5 P 135 fao_string = ‘Wk-", 
§ 5 fieTd_width = 3), 
34 2 reflagsend : $crffieldend, 


VAX-11 Bliss-32 V4.0-742 Page 
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'Subheader for cref of module de 


'Final string descriptor stored here 


'Subheader for cref of module re 


‘Output a form feed 
'Top of page header 


'Fao control string to create fao co 
'Fao control string to create fao co 
'Fao control string to create fao co 


'Fao control string created here 
'String descriptor for fao_sym 
'Fao control string created here 
'String descriptor for fao_mod 


for long names 


spaces between symbol and vale 


field of zero width 


hex longword value 


default suffix ’ 
when none of following applies 
relocatable only 

suffix 


suffix on undefined 
symbol values 


default spaces when none of 
the following references 
prefix for weak reference 


4 
(2) 
fs 


fs 


| 
sss ss .2.:).80880.. ne 


it 


or198e 93:99:58 DERKSVMGHASTERSCL Logan SRCICROSS.83209%° «23 


H 10 
LIB_CROSS 16-5 
VOe=000 lense 


; 9 Pj § 1 referencer : Scrffield (fao_string = pS lAC’, ! for long names 

; 230 1 1 tield_width = 32), 

3 1 } 8 } refilngend : Scrffieldend, 

3 ‘ P 1360 1 relsymval : $crffield (fag string e "tee °, 

: 4 1361 1 field_width = 4), 

3 5 P 1 $¢ 1 reloc_pre : Scrffield (bit_mask = gsy$m_rel, | 
s 6 P 1365 1 fao ate ing = ° “Re-', 

3 7 1364 1 field_width = 4), 

: $36 : $2 : relsymvalend : $crffieldend, 

; 240 P 1 es 1 Lib_crfsymval : $Scrfctltable sSersyee = ascic, ! define the table that drives 

: 241 P 1368 1 error = crferror, 

H g P 1369 1 output = Lib crfout 

> 26 P1370 1 keyltable = Symbol field, 

3 246 P 1371 1 key2table = spacefield, ! the cross reference to produce 
; 245 P 1 if; 1 valitable = valuefield, ! the formated symbol table 

; 246 P 137 1 val2table = valueflags, ! Listing Lines 

; 247 P1374 1 ref2table = referencer, ! each entry here is a 

: 248 1375 1 refitable = refnceflags), ! pointer to the formats 

> 249 P 1376 1 Lib.crfbyval : Scrfctltable (keytype = bin_u32d, ! define the table that drives 

; 2 P 1377 1 error = crferror, 

3 @o) P1378 1 output = Lib_crfout, 

3 $26 P1379 1 keyltable = valuefield, ' cref to produce the cross 

; & P 1380 1 ed § pet 0 = spacefield, ! reference of symbols 

> 6254 P 1381 1 valitable = 0, ! sorted by value 

3 295 P 1356 1 vaygrenre = 0, 

3; ee P 13835 1 ref2table = symbolfield, 

: gor 1384 1 refitable = spacefield), : 

; 258 P1385 1 lLib_crfmoddef : $Scrfctitable (keytype = ascic, ! Cross ref of syms defined in module 
; 2m P 1386 1 error = crferror, 

: 260 P 1387 1 output = Lib_crfout 

> 261 P1388 1 keyltable = Symbol field, 

; P 1389 1 key2table = spacefield, 

; P 1390 1 valitable = 0, 

; 264 P1391 1 val2table = 0, 

; 265 P 1336 1 ref2table = referencer, 

; 266 1393 1 ' refitable = 0), p 

3 eer P 1394 1 Lib_crfmodref : Scrfctltable (keytype = ascic, ! Cross ref of syms referenced in module 
> 268 P 1395 1 error = crferror, 

; 269 P 1396 1 output = Lib_crfout 

; 270 P1397 1 keyltable = Symbol field, 

3: 271 P 1398 1 neyecanre = spacefield, 

: $f P 1399 1 valitable = 0, 

. oF P 1400 1 val2table = 0, 

3 274 P 1401 1 refétable = referencer, 

3s e775 1406 1 refitable = 0); 

3; 276 1403 1 

s ager 1404 1 

; 278 1405 1 BIND 

; 279 1406 1 recing = recdesc Cdsc$w_length]_: WORD, ‘Name the Length of the record 
; 280 1407 1 objrec = recdesc (Cdsc$a_pointer] : REF BBLOCK, ‘and the pointer 
3; 281 1608 1 objvec = recdesc Ldsc$a_pointer] : REF VECTOR C,BYTE], ! name pointer as a bytevector pointer 
s 2 1409 1 recdispatch = PLIT ( 'Set up maximum allowed record type 

; 2 1410 1 prohdr, 'Q = module header 

; 284 1411 1 progsd, ‘1 © gsd records 

; 285 1412 1 pronul, '2 - tir 


SEP en ge go RETR TO Set NRE Bag C7 Reta 
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ioezbon’® 19-00-18 Be 8s 38 8 Nee GhASfeR scl faean srcacross.e3209%" (28 
; 1413 1 pronul, '3 = end of module 

141 1 pronul, ig - dbg = check sequence and copy 

141 1 pronul, '5 = tbt = check sequence and copy 

1213 1 pronul i$ - lnk = check sequence and copy 

1417 1 pronulS : VECTOR; i7 = eomw 


ee 


BBLOCK 
desc : REF BBL OCK, 
re : REF BBLOCK, 
sta 
keydesc : BBLOCK Cdsc$c_s_bin]; 


D 
symbol faodesc = symbolfield Cfld$b_ resent? 7 BBLOCK, 'FAO descriptor for cref 
refncfaodesc = referencer tf ld$b_faodsc] : BBLOCK 

fdb$l “detoxtl : BBLOCK: 


| 
LIB_CROSS -1984 01:48:05 VAX=-11 Bl isse 32 V4.0-742 7 
yoe=600 71384 93:95:83 DISKSVMSMASTER:CLIBRAR.SRCICROSS. B32: r * (3) 
9 18 1 GLOBAL ROUTINE Lib.cross_obj = , | 
9 1 BEGIN 
94 '+¢ | 
95 i 
9 i Read all modules in object Library and create cross reference. 
44 Then print it 
99 ! Implicit inputs: | 
4! Library is open 
$07 Outputs: 
305 ; & The cross reference Listing file is written and closed. 
307 3 ie 
308 3 
3 LOCAL 
3 symsubhdr1 : BBLOCK Clib$c_Llisreclng], 
3 symsubhdr2 : BBLOCK Clib$c_lisrecingl, 
3 mdfsubhdri : BBLOCK Clib$c_Lisrecing], 
3 mdfsubhdr2 : BBLOCK Clib$c_lisrecing], 
4 me fsubhdr1 : BBLOCK Clib$c_lisrecing], 
; mrfsubhdr2 : Lib$c_lisrecingl], 
4 
4 
4 
4 
4 
4 
4 


outdefext = Lib$gl_outfdb 


REMQUE ; 


ve tts he type NEQ Lbr$c_typ_obj 


SOOWONOUSWN —"OODONOUSWN—O”O 


WWNARIPIPIPINPONINPONPINID) 2 9 = IO 


A AAIAIAI AIA AAAI NAIA ANIANIW AWN 
—_iaiooumaKnR aR RRR RR RRR RRR RRR RRR RRR RRR RRR RRR RR RR 


eee SS 


Be Se Be Oe Se Be Se Se Se Se Be Be Se Se Se Se Se Se Se Se Se Be Be Ge Ge Se FHS Ss BF Se Be Se Se Be Be Ge Se FH SH Se Se ee SH SHS Se Be Se Oe Se ee SHS Se Os ae 


1 

2 5 SIGNAL (Lib$ anotobs | ib. 1, LibSgl_libfdb Cfdb$l_namdesc]); 

33 5 RETURN Lib$_notobjlib; 

$e : END; 
336 ¢ ¢ found! = false: | 
337 maxsymlng = 6; ‘Min symbol length is 6 
$36 64 oane = 6: ' as is module 

39 65 SGETTIM (TIMADR = current. time); iGet time for Listing 

40 66 CHSMOVE 19scSe _S_bln hist defext. smeeeetentts 'Set default extn. 

41 6 If NOT ati b$gl=cElmsk Clib$v_only] iTf not /ONLY 

48 rf erform (Lib get. _zmem (Lnb$c fixeds ize + 1, Lnblk)); 'Then make up one 

4 0 {NSOUE (.inbTk, raibSat modlist (1)) ‘Insert into queue 

45 71 Pe tabs naml ng T; 

46 ie CHSFILL (RASC TI e”) 1, Unblk Clnb$t_name); 

i ne, F 
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mo 


| 
; 23 162) | Figure # Lines per page 
: 351 1299 Linesperpage = LibSlp_lines () = 6; 
: 28 1008 pegenus = ! and start with page 1 
: 354 1480 i Look at each block set up for /ONLY, and cross reference each module 
3 $2; 193) that matches. 
; 337 1488 uM gNQT REMQUE (.LidSglmodlisl, LnbLk) | 
; 359 1485 keydesc fdsc$u_lengthd.= .tnblk Ftnbgb naming]: | 
; 300 156 keydesc Cdsc$a_ pointer] = Lnb$t_ 
; 361 1487 4 IF (status = LBr$get_ Sidon itibsgte tibet, *libsot pocnests, ‘Search index for matches 
; 305 1488 : one_module, keydesc)) EQL Lbr$_nomtchfou 
5 $07 be [ven FINAL Cl (Libs snontchfou, 1, keydesc) 
: 365 1491 THEN SIGNAL. itis. Migs 1+ 1, LibSgl_lLibfdb Cfdb$l_namdesc], 
> 366 1498 atus, tasstvis” | 
; 367 149 Lib_free_mem (Lnb$c _tixedsize : . LnbLk PT RSE “nantngd, elnblk); !Deallocate the block 
: 39 lags 5, ENE 
: 376 1439 gi Call CRF to output the Listing, close files and we are done 
: 372 1498 2 IF NOT . found! 
3. 373 1499 § THEN RETURN Lbr$ anontch toy 
3 aoe P 1200 § perform (Lib_open_out LibSgl. outfdb, Lib$gl_ re preene _nam], !Open output file with carriage control | 
; 376 150 ' 
3 $5 1308 ; Create fao strings for symbols and modules 
: 144 1302 2 SYSSFAO (fao _crefao, fao =syndese. en givadese, fao_exclam,!Create fao control string for symbols 
; -maxsymln 
: 381 1507 5 SYSSFAO (fao_crefao, fao *nodesc ee nodesc. fao_exclam, !Create fao control string for modules 
: 38 1308 ; <maxmod(ng, Fao_ac); | 
: 384 1510 2 symbolfield Cfldsb maxing] = -maxsyming: 
; HH 131) § referencer Cfld$b_maxing -maxmoding + 1; 
; 38s 1318 a Ae creflags Clib$v_crfbysym) | 
; 389 1515 CHSMOVE (dsc$c_s_bln, io _symdesc, symbolfaodesc); !Set up string descriptors | 
; gO 1516 CHSMOVE (dsc$ bln, fao paodesc refncfaodesc); : 
3 (31 1517 or teyneumnee fascsu. Length 1 = Libs lisreclng; 'Set up sub header fao control strings | 3: Re 
: 338 1518 cr Esynsubhe r Cdsc$a_pointer] = symsubhdr1; 
; 39 1519 SYS$FAO (fao_crefao2, crfsymsubhdr, crfsymsubhdr, fao_exclam, | 
: 394 1330 -maxsymLing + 1, crfsymsubprotol 
: 395 1521 mquneeing, + 7, crfsymsubproto2); 
; 396 1356 desc = crfsymsubhdr + dsc$c_s_bln; 
; 397 15 desc pascou. Length) = Libse- ol tsreéing: 
; 598 1524 desc Cdsc$a_pointer] = symsubh | 
: 399 1525 SYSSFAO (fad_crefao2, .desc desc, fao_exclam, 
; 400 15 $ :maxsym(ng + » crfSymsubproto3 
+ 401 15 -maxmoding + crfsymsubprotos); | 
; 40 1528 curheader = crfsymheader; 
; 40 1529 cursubhdr = crfsymsubhdr; 
3: 404 1530 Linecount = ok Speeper sage 'Force new page 
; 405 1531 crf$out (Lib_crfsymval, *Listingwidth, -linesperpage - 4, 
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= 


En: .Linesperpage, crf$k_defs_refs, crfSk_delete); 


IF, \ibSgl creflags Clibsv_crfbyval] | 


So05 
SELF 


curheader = crfvalheader; 
cursubhdr = Pie ewaneal 

Linecount = .Linesper Perce new page 

erf$out (Lib. “erfoyvale auistingyidth, -\ jnesperpene - 4, 

oe vlinesperpage, crfSk_vals_refs, crfSk_delete); 


| 
| 
IF ates he creflags Clib$Sv_crfbymod] | 


16a rar Aaa 


THE 
CHSMOVE (dsc$c_s_bln, fao_modesc, symbol *aodesc); 'Set up string descriptors 
CHSMOVE (dsc$c_s_bln, fao_symdesc, Vp ate ; 
syabol field, Cftgsb <nax lng] = .maxmoding; 


; = ,maxsymlng + 1; 
sr hectouthar sreclng: 'Create the fao control string for sub header 
crfmdfsubhdr 
SYSSFAO (fao_crefao3, aonngfsubhdr. cr tmdtsubhdr fao_exclam, 

gangetngs _erfmdfsubprotol 3 | 
desc = erfmdfsubhdr + ndectc..s 
desc Cdsc$w_length) = Lib$c “Tereé ing: 
3 desc Cdsc$a_pointer] = mdfsubhdr2; 

SYS$FAO (fao_crefao3, .desc, .desc, fao_exclam, 
-maxmod(ng+1, crfmdfsubproto2); 

: 
1 


curheader = crfmdfheader; 


ae eel aap ataana-atbene> 
VIFWN "OVD ONOUS WN -OOONOUSWN—O 


sureubnar = cj foe theeaeet 
Linecount = 'Force new page 


. line 
crf$out (Lib: “cr taodeet. lL terte width,  Magees ag = - 4 


SR A RR AE tate ee mae te al ee ey eee} 
MEWS OONAUE WA O ODNAOU EW OOWONOULS wr 


a ee ee ee ee ee ee ee LS 
PW Tw ee ee eae eee ew wah ah ahah 4h 4h 4h Ab ah dh ah ah Ab ah dh ah ah ah eh eh eh db dh dh dh ab ah eh ah el eal eal eal eal eal 


Be Se Be Ge Be Se Be Se Ge Ge Ge Se Se Be Se Ge Ge FH Se Se Ge Se Se Ge Ge Ge Ge Ge Se Ge Be Se Fe Se Se Se FH Se FFs Se Ge Ge Se Se Se ee Se Se esas 


Hf vlinesperpage, crf$k_vals_refs, crf$ elete); 
439 crfmrfsubhdr b¢scéu_ length] = ee -Lisrectng; 'Create the fao control string for sub header 

440 crfmrfsubhdr Cdsc$a_pointer] = mrfsubhdr 
441 7 SYSSFAO (fao_crefao3, crfmrfsubhdr, crfmrfsubhdr fao_exclam, 
44 8 mounedings? _erfmrfsubprotoi) : 
44 69 desc = crfmrfsubhdr + ndsesc.s 
444 70 desc Edsc$w_ Length = Libsc- “{Tsre¢ ing: | 
445 71 desc Cdsc$a_pointer] = mrfsubhdr2; 
446 % SYSSFAO (fad_crefao5, .desc .desc, fao_exclam, 
447 7 -maxmod(ng+1, crfmrfsubproto2); | 
448 74 curheader = crfmrfheader; | 
449 75 res = 1 fthnwete 
450 76 Linecount = .line page; ‘Force new page 
451 77 crf$out (Lib. *ertmodret, .Listingwidth, hayes gp Ae sp INOCEUAT, | 
$3 a en: vlinesperpage, crf$k_vals_refs, crf$ elete); 
454 80 Lib close out (.Lib$gl_outfdb, false); 
455 81 RETORN : 

456 82 END; 'Of Lib_cross_lib 


TITLE LIB. CROSS | 
"IDENT \VO%Z-000\ | 


-PSECT SPLITS,NOWRT ,NOEXE,2 


L 4B. £ROSS 1B-ben-198 01:48:05  VAXeT1 Blise=32 V4.0-742, Page 


. c 
53 49 4C 2€ 5D 5B 3A 4B 53 49 44 24 53 59 9 600 P.AAA: .ASCII \SYS$DISK:CJ.LIS\<0> : : i 
65 63 3 65 72 65 66 65 72 30 73 73 6F 72 & 010 P.AAB: .ASCII \Cross reference by symbol\<0><0><0> : ea 
00 09 8 of 6F 6 dD 79 7 $9 9 § 9 1F : : } 
65 63 6€ 65 6 ? 8 rs e 4 oF 3 gf P.AAC: .ASCII \Cross reference by value\ ; a4 
$3 63 6€ 65 72 65 66 6 §§ 20 48 $8 6F 5 ra a94¢ P.AAD: .ASCII \Cross reference of definitions in module\ ; : i 
73 6€ OF 69 74 69 6€ 4 66 65 64 66 6F $8 823 : e 4 
65 6C 2 4 gf $8 6E $3 006 : 4 
65 6 of 65 72 65 66 6 2 g 6F 72 4 poet P.AAE: .ASCII \Cross reference of references in module-_ ; ‘3 
20 73 65 63 6E& 65 72 65 $8 65 72 ee 6F 88 B \<0> : im 4 
00 g 6C 64 6F 6D BA : i 
a Ben sa ct = 4 6C 6F ge 6D C 00094 P.AAF: .ASCII \<Symbol!>!11<Value!>!\<0><0><0> : ; | 
00 00 00 21 3 21 +65 gc O0A3 : i 
cS te 2 TF $3 20 64 65 6E& 6 06 65 44 3C OQOOAC P.AAG: .ASCII \<Defined By!>Referenced By ...\<0><0> : : ij 
2 2—€ 2—€ 20 79 42 20 64 65 65 6E 65 72 62 88 ppe8 3 + ij 
Saeaea Bae Hae es 6p oA se Hl 3¢ agoce P.AAH: ASCII \<!68=!>!11<!5e=!>!\<0><0> : . i 
00 00 2D 2A 37 31 21 3E 21 2D 2A 30 $1 21 5 G0aeD P.AAIL: ASCII \<!108=!>!172-\<0><0><0> : 4 
62 6D 79 53 3E 21 65 75 6C 61 56 3¢ 30 31 21 QOOFO P.AAJ: ASCII \!10<Value!>Symbols...\<0><0><0> : i 
00 00 00 3 sf gt 7? gf 6F OOOFF : i 
20 2A 30 31 21 3SE 21 2D 2A 35 21 3C 30 31 si Bn 108 P.AAK: ASCII \!10K!5#=!>!108-\<0> ; i 
6C 6F 62 6D 79 53 3E 21 65 6C 75 646 6F 4D ee gatas P.AAL: .ASCII \<Module!>Symbol definitions...\<0><0> 3 i 
2—E 2— 2— 73 6E 6F 69 74 69 6E 69 66 65 $ 68 ATH : i 
2D 2A 31 32 21 3 21 3p 2A 36 21 3c ool P.AAM: ASCII \<!68-!>!218-\ : = 
6C 6F 62 6D 79 53 4 21 65 6C 75 64 6F 4D 3C 00144 P.AAN: .ASCII \<Module!>Symbol references...\<0><0> : . 4 
0O 2— 2 2— 73 65 63 6& 65 72 65 66 65 72 20 00153 3 $3 

00 Op tog : 

90 0016 -ASCII <0> 3 

2D 2A 30 32 21 3E 21 2D 2A 36 4 C 00164 P.AAO: ASCII \<!68-!>!208-\ : 

0 00 SE 21 00170 P.AAP: .ASCII \!*\<0><0> : 

TFTwMVriain FF 46] 36 21 20 53 41 30 34 21 00174 P.AAQ: .ASCII \!40AS '60AS !17%D Page !UL\<0> : 

00 4C 55 21 20 65 67 61 50 20 20 44 25 00183 : 

00 00 00 43 41 $} 4C 55 21 43 41 21 Fb P.AAR: .ASCII \!AC!UL!AC\<0><0><0> : 

53 41 21 4C 55 21 53 41 1 4€ 55 21 43 41 54 Bhs P.AAS: .ASCII \!AC!UL AS!UL!AS\<0> : 

00 00 00 53 41 21 4C 55 21 43 41 21 OOtAe P.AAT: .ASCII \!AC!UL!AS\<0><0><0> ; 

00 00 00 43 41 31 33 21 OO1B8 P.AAU: .ASCII \!31AC\<0><0><0> : 

68 6° 0 1c0 P.AAV: .ASCII \ a > : 

0 104 P.AAW: .ASCII \ \<0><0><0> : 

00 4C 1 108 P.AAX: .ASCII \!XL\<0> : 

$5 A 1 ice P.AAY: .ASCII \!3* \ : 

0 20 52 2D Q01D0 P.AAZ: .ASCII \-R \<0> : 

00 20 $4 D ate P.ABA: .ASCII \-* \<0> : 

So A 33 21 108 P.ABB: .ASCII \!3* \ : 

0 2D 39 7 QO1DC P.ABC: .ASCII \WK-\<0> 3 

00 00 00 43 41 31 1 QO1EO P.ABD: .ASCII \!31AC\<0><0><0> : 

0 A 34 21 OQO1E8 P.ABE: .ASCII \!4* \ 3 

D 52 9 Ooo 4 pies P.ABF: ore : R-\ : 

00000000v 00000000v 0000C000v 00000000v 00000000V 000 bby Vv Sik P.ABG: .ADDRESS PROHDR, PROGSD, PRONUL, PRONUL, PRONUL, 3 

00000000v 00000000v 0020C PRONUL, *PRONUL, PRONUL : 
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00000 GSDOFFSET: 


| 
| 
.BLKB OG 
00004 SYMBOLSTRING: 
.BLKB 4 
20898 Feu RECDESC: “BLKB 8 
001 “BLKB | 
0014 CORMDD: “BLKB 4 | 
0018 SYMBOLVAL: : | 
0001C LINECOUNT: pi | 
00020 LINESPERPAGE : ; 
00024 PAGENUM:.BLKB 4 
00028 CURRENT TIME: , 
00000084 00030 LISTINGWIDTH: ra 
00034 CURSUBHDR: ‘ Z 
00038 CURHEADER: : 
0003C MAXSYMLNG: , 
‘ 00040 MAXMODLNG: , | 
00000000 00044 A.zERO: ‘LONG 0 : 
O000000F 00048 LISTDEFEXT: a 
00000000' 0004¢ "ADDRESS P.AAA : 
00000019 00056 CRFSYMHEADER: ‘a 
9000000" 00054 “ADDRESS P.AAB : 
00000018 00058 CRFVALHEADER: oa 
00000000" 0005¢ “ADDRESS. P. AAC : | 
00000028 00060 CRFMDFHEADER: | 
90000000" 00064 “ADDRESS P.AAD : 
00000027 00068 CRFMRFHEADER | 
00000000' 0006¢ ADDRESS P.AAE : 
60076 CRF SYMSUBHDR: a 
00000015 00080 CRF SYMSUBPROTOT 
90000000" 900 ADDRESS’ P. AAF | 
0000001E 000 CRFSYRSUBPROTO | 
3 

0000000' 0008 DDRESS P.AAG : 
$b000% > 80 CRF SYMSUBPROTOS: | 
00000' 00094 ADDRESS P.AAH : 
Mantas 0098 CRFSYMSUBPROTO4: | 


Ce _ ae 


ting 


30000015. 


SHS 


OOO000TE 


000000. 


00000000' 


00000010 


000000' 
000009 


00000000' 
01 


0 
0 
0 
0 
Q 
0 
0 
0 


oo oO 


21 

02 

43 41 
00000008 
00000000' 
00000008 


ones 


1 


nn" 


"1 
1$-e0-1984 95:95:88 SUm hastens cl tagak secacross.032 


LONG 13 
S00K8 CREVALSUBNPRee SM 


» LONG 
as -ADDRESS P.AAJ 
A8 «LONG 15 
af -ADDRESS P.AAK 
0B Salata 16 
000C0 -oitniaae tae 
tt ppp oness P.AAL 
C8 CRFMDFSUBPROTO2: 
- LONG 
Qo0cc -ADDRESS P.AAM 


00000 CRFAMRF SUBHDR: he 
QO0EO CREMRFSUBPROTO1: 


LONG 
000E4 “ADDRESS P.AAN 
000 CRFMRFSUBPROTO2: 

900 “ADDRESS P.AAO 


“ADDRESS P.AAP 


oo 


E8 
EC 
FO FAO_NEWPAGE : 
F4 
F8 FAO_PAGEHEADER: 
FC 


0 
00 
00 
000 “ADDRESS P.AAQ 
00100 FAO_CREFAQ: | 
00104 “ADDRESS P.AAR 
00108 FAO_CREF AD: : 
0010¢ ,ADDRESS P.AAS 
00110 FAO_CREFAO3: ‘ 
00114 “ADDRESS P.AAT 
00118 FAO_EXCLAM: 
.BYTE 1 
0119 ASCII \!\ 
O11A 
O11C FAO_AC: .BYTE 
O11D “ASCII \AC\ 
90120 FAO_SYM:.BLKB 8 
0128 FAOTSYMDESC: 
.LONG 8 
1 “ADDRESS FAO_SYM 
130 FAO_MOD:.BLKB. 8 
138 FAO"MODESC: 
.LONG 8 
0013¢ -ADDRESS FAO_MOD 
0140 SYMBOLFIELD: 
<WORD -32768 
00148 “BYTE 1 
014 “BYTE 31 


age 
#9 


Foz 
owe 
= 


SYMBOLEND : 
«WORD 


-BLKB 
ereeer Tete 


om 


-BLKB 
NULLFIELD: 


-BLKB 
VALUEFLAGS: 
WOR 


ooo 
ooooo OOCOoOo OOOO 


SoOUWOoO MOUW— BDBOfW 


VALFLGSEND: 
wo 


“BLK 
REFNCEFLAGS: 


>>> > »YProono SLSee co coco SN NNNNN NOOOCOCOO OW UMN WE EES 


Be 12:39:58 


-LONG 5 
-ADDRESS P.AAU 


SPACEEND: 


ORD -32768 
BYTE 1 
-BYTE 1 
LONG 1 
»ADDRESS P.AAV 
~ WORD 


ORD <-32768 
he 


@ 
~=< 
4a 
m 
-—-oO 


- LONG 
»ADDRESS P.AAW 


NULLEND:.WORD 0 
«BLK 2 
VALUEFIELD: 


VALUEEND: 


RELOC_SUF : 


eres 
“BYTE 8 
"LONG 3 
“ADDRESS P.AAX 
“WORD 

2 
-WORD -32768 
"BYTE 1 
“BYTE 3 
“LONG § 
“ADDRESS P.AAY 
.WORD 32760 
“BYTE 1 
“BYTE 3 
“LONG 63 
“ADDRESS P.AAZ 


UNDEF _SUF : 


-WORD -32766 


-BYTE 
» LONG 
-ADDRESS P.ABA 


RD 

B 
-WORD -32768 
-BYTE 1 
BYTE 3 
-LONG 4 


32 v4 
R:CLI 


>t 


C 
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00000000 00180 -ADDRESS P.ABB : , 
8004 bo1Be WEAK_PRE: . | 
WORD ere? ; 2 i 
1 0186 .BYTE : sj 
18 ‘BYTE : ; | 
900000 188 . LONG : - ij 
0000000' 1B .ADDRESS P.ABC : 2 j 
0000 001C REFLAGSEND : | 
01¢2 .BLKB ‘ sj 
8000 dolce REFERENCER: : | 
ORD -32768 P} ° i 
1 0166 BYTE 1 : : 
0 O01C “BYTE 2 : ; | 
00000005 001¢8 LON : ei 
00000000" 001CC “ADDRESS P.ABD : 3 | 
0000 00100 REFLNGEND: 3 | 
-WORD 0 : - | 
8000 001D4 RELSYMVAL: : | 
WORD -32768 ° ° i 
1 00106 .BYTE 1 : 3! 
4 9010 ‘BYTE 4 : 3 4 
00000004 00108 «LONG 4 ; : 
00000000" 0010¢ “ADDRESS P.ABE ; 4 
8008 O01EO RELOC_PRE: : 
«WORD -32760 ; 3: 
01 Ore? ‘BYTE 1 ; | 
04 OO1€ .BYTE 4 : a4 
00000004 00164 .LONG 4 : : 
00000000' 001E8 ADDRESS P.ABF ; : 
0000 O01EC RELSYMVALEND P : 
00000000 001EE LIB_CRFSYAVAL: . : 
00000000 001F2 - 0 : 2 ( 
00 00 00 00 001F6 BYTE 0, 0, 0, 0 : : 
00000000 OO1FA .LONG 0 : : 
00000000 00000000 OO1FE -LONG 0, 0 : . 
9000640 0206 . LONG 3600 : : 
00000 020A . LONG 0 : . Ss 
00000000 00000000 00000000 00000000 9000000 9000 9 9 OF LONG 0, 0, 0, 0, 0, 0. 0. 0 ; 
00000000' 00000000' 00000000' 00000000° 90000000y 9000 900y 9 ze -ADDRESS CRFERROR, LIB_CRFOUT, SYMBOLFIELD, : | 
0 ' SPACEFIELD, VACUEFIELD, VALUEFLAGS, ; | 
REFNCEFLAGS, REFERENCER ; | 
00000000 0024E LIB ~CRFBYVAL : 
00000000 2 LONG : 
00 00 1 BYTE 1, 0, 0, 0 : 
A LONG : 
00000000 E LONG 0 ; 
A “LONG é° . : 
00000000 00000000 00000000 00000000 90989008 ‘ .LONG , 0, 0, 0, 0, 0, 0, 0 : 
00000000 00000000' v 000v .ADDRESS CRFERROR, LIB_CRFOUT, VALUEFIELD, - : 


* . - - Ld 
B=1984 12:37:58 DISKSVMSMASTERSCLIGRAR-SRCICROSS.83201%" 3 
PACEFIELD | 


it -fag 


000 9 .LON : 
Sbo00000" 29900000" O06 ORES SPACEFIELD, SYMBOLFIELD 
0000000 OO2AE LIB ~CRFMODDEF : 
000000 0282 LONG : | 
00 00 B6 -BYTE 0, 0, 0, 0 : 
8 6° BA » LONG : 
00000000 BE LONG 0 : 
4 0 C6 - LONG §600 ; | 
00000000 00000000 00000000 00000000 30099908 3 0 cE .LONG 0, 0, 0, 0, 0, 0, 0, 0 : | 
00000000" 00000000' india 0000000v O02EE ness ENCE eLD LIB_CRFOUT, SYMBOLFIELD, - : | 
00000000 00000000 000 0000 0 FE LONG 0 : | 
0000000" 0030A “ ADDRESS OREPERENCER : 
0000000 0030E LIB -CRFMODREE : , 
00000000 00312 [LONG 0 ; 
00 00 00 00 00316 BYTE 0, 0, 0, 0 ; 
0 99000 O31A “LONG 0 : 
00000000 00000000 0031€ LONG 0 ; 
900640 00 6 “LONG 25600 : 
00000 032A “LONG 50 : 
00000000 00000000 00000000 00000000 90000000 9000000 0032e LONG 0, 0, 0, 0. 0, 0, 0, 0 F | 
00000000" 00000000' 00000000v 00000000v bose ness EEE ELD LIB_CRFOUT, SYMBOLFIELD, - ; 
00000000 00000000 00000000 0035€ LONG : 
00000000" 0036A “ADDRESS OREPERENCER ; 
RECLNG= RECDESC 
OBJREC= RECDESC +4 
OBJVEC= RECDESC+4 
RECDISPATCH= P.ABG 
SYMBOLF AODESC= SYMBOLF IELD+4 
REFNCF AODESCS REF ERENCER+ 
.EXTRN LBRSGL_RMSSTV CIBSGL. CREFLAGS 
EITRN LIBS$GL ~MODNAMIX 
SEXTRN LIBS$GL~ “RODLISL. LIBSGL_OUTFDB 
EXTRN LIBSGL-CTLMSK, *“LIBSGL tI Jeroe 
EXTRN LIBS$GL~ INGE B, tIBSAL 
-EXTRN LIBSGL-TYPE, LIBSGL brBCTL 
“EXTRN LIB_OPEN OUf, LIB CLOSE 
-EXTRN LIBIGET NacR, LI GET 2MEM 
-EXTRN LIB-FREE_MEM, LIB_LOG_OP 
“EXTRN SYSSFAO, CRESINSRTKEY 
SEXTRN CRESINSRTREF, CRFSOUT 
SEXTRN LIBSCRF_INS_KEY 
TEXTRN LIBSCRF-INS-REF | 
XTRN LIBSCRF soureur LIBSLP LINES | 
“EXTRN LBRSFIND, LBRSGET RECORD 
TEXTRN LBRSGET_ INDEX BRS” NOMI CH 
“EXTRN LIB$_NOTOBJLI6, LIBS _NOMTCHFOU 
XTRN LIBS~INDEXERR, LIB$_COOKUPERR 
EXTRN SYSSGETTIM 


K 11 
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: 6 
.PSECT SCODES$,NOWRT,2 : é 
OFFC 00000 ENTRY L 1B, CROSS OBJ, Save R2,R3,R4,R5,R6,R7,R8,- ; 1418 : e 
8 900000006 BF BO 90002 MOVL at ies NOTOBJLIB, R11 : ; 6 
A 6 E MOVAB LIBS$SIGNAL, R1 : : 6 
9 0 6 9E 19 MOVAB CRFSOUT, RO F ; 6 
: 06 9E 0001 MOVAB SYSSFAO, RB : : § 
CF 9E 1 MOVAB MAXMODLNG, R7 : 3 6 
é FCDC ce e 0 MOVAR -804(SP), SP : s 6 
52 00006 cr ¢ 0 ADDL3 #8, LIBSGL_OUTFDB, R2 + 1450 3 ¢ 
1 00006 cf b 00 CHPL L 1686. TYPE, #1 + 1456 : , 
7E 00006 CF 10 ¢i 90 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 1458 ; 6 
or DD 00038 PUSHL #1 : ; 6 
8 DD 00030 PUSHL R11 : ; é 
6A Q FB 003F CALLS #3, LIBSSIGNAL : s 6 
50 B D 0048 MOVL R11, RO + 1459 
04 0004 RET ; 
DO A704 00046 18: CLRL —« FOUND1 + 1462 
FC OAT 06 DO 99049 MOVL #6, MAXSYMLNG + 1463 
67 06 DO 00040 MOVL #6, MAXMODLNG + 1464 
E8 AZ 9F 00050 PUSHAB CURRENT TIME + 1465 
000000005 00 01 FB 00053 CALLS #1, SYSSGETTIM : 
6 08 A7 8 28 O005A MOVC3 #8, LISTDEFEXT, (R2) + 1466 
iC 00006 CF 2 £0 00055 BBS #2. LIBSGL_CTLMSK+3, 3$ + 1467 
E DD 00065 PUSHL SP + 1469 
0B DD 00067 PUSHL #11 : 
00006 CF 02 FB 00069 CALLS #2, LIB_GET_ZMEM : 
01 50 Es 0006 BLBS STATUS, ~2$ ; 
4 00071 RET : 
00006 oF 00 BE 0 00078 2$: INSQUE @LNBLK, @LIBS$GL_MODLISL+4 + 1470 
50 6E 00 0007 MOVL + 1471 
09 AO 2001 8F 80 0007B MOVW #10753, 9(RO) : 
000000006 00 00 FB 00081 3S: CALLS #0, LIBSLP_LINES $ 1477 
EO A? FA AO 9E 00088 MOVAB -6(RO), LIRESPERPAGE : 
£4 A? 04 00080 CLRL —« PAGENUM : 1478 
6E 00006 DF OF 00090 4s: REMGUE @LIBSGL_MODLISL, LNBLK : 1483 
6B 1D 00095 BVS 7$ : 
52 6— D0 00097 VL LNBLK. R2 + 1485 
04 AE 09 Ad 9B O009A MOVZBW 9(R2), KEYDESC : 
08 AE OA A2 9E 0009F VAB  10(R25, KEYDESC+4 + 1486 
04 AE OF OA, PUSHAB KEYDESC + 1487 
0000v CF 9F O00A7 PUSHAB CROSS ONE_MODULE ; 
0000G CF 9F OOOAB PUSHAB LIBSGC_MODNAMIX ; 
00006 CF 9F QOAF PUSHAB LIBSGL LiBcTL : 
000000006 09 4 FB 083 CALLS #4, LBRSGET_INDEX ; 
5 Q DO OO0BA MOVL RO, STAT F 
000000006 &F D1 000BD CMPL status, #LBR$_NOMTCHFOU > 1488 
10 12 000C4 BNEQ ; 
04 AE 9F 000C PUSHAB KEYDESC + 1489 
1 DD 000C¢ PUSHL @# ; 
000000006 8F DD 000C PUSHL #LIB$_NOMTCHFOU : 
6A 3 FB D CALLS #3, LIBSSIGNAL ; 
fs 1 D4 BRB ; 
19 53 £8 00006 5$: BLBS STATUS, 6$ > 1490 
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LIB_CROSS 18-Se 1984 01:48: VAX=-11 Bliss-32 V4.0-742 Page 17 a 
02000 ea eeen tke P5988 NesdwGhASteRscl tagan secacross.e32097" (Ss V 
000000006 Q DD 00009 PUSHL LBRSGL_RMSSTV : 1492 : 
DD OOODF PUSH T : ; 
CF if ct 3 ADDL3 #16, LIBSGL_LIBFDB, -(SP) + 1491 ; 
000000006 8F DD Oe9 PUSHL #LIB$_INDEXERR : : 
. 5b SSE os, uh 43> tTeHSToN ius) |i 
7E 09 =A BF Ore WOVZBL 9(R2), -(SP) : F 
eee A CO 000F8 ADDL , (SP : : 
CF 2 FB OOF CALLS #2, LIB_FREE_MEM ie : 
08 p0 5 Es 1 7$ BLBS § FOUND1, 8$ + 1498 F 
000000006 8F BO 4 é MOVL #LBRS$_NOMTCHFOU, RO + 1499 : 
01 OD OO10E 8$ PUSHL #1 + 1501 : 
CF 00000040 BF C1 09116 ADDL3 #64, LIBSGL_LIBFDB, -(SP) : : 
aaa 2h a CC a : : 
01 93 EB 001 5 BLBS STATUS, 9$ ~ : : 
00ODC C7 OF 00127 98 PUSHAB FAO_AC : 1505 ; 
oops th oF OOISe pustta FAD Eaten : 1298 
00E8 C7 OF 01 : PUSHAB FAO-SYMDESC : : 
O0E8 C7 SF 00136 PUSHAB FAO-SYMDESC : : 
00CO C7 OF 00134 PUSHAB FAO~CREFAO ; : 
68 06 FB 001 CALLS #6, SYSSFAO : ; 
Oopc C7 «OF 90141 PUSHAB FAQ_AC : 1507 F 
67 DD 00145 PUSHL MAXMODLNG : 1508 F 
0008 C7 9F 00147 PUSHAB FAO_EXCL : 1507 : 
OOF8 C7? OF 00148 PUSHAB FAO-MODESC : : 
OOF8 C7? OF OO14F PUSHAB FAO-MODESC : 3 
og OP ool? CALLS. MeO “SYSSFAO : 
C7 FC OA? O90 SOT aA MOVE. MAXSYMLNG, SYMBOLFIELD+3 + 1510 ; 
67 01 81 00160 ADDB3 #1, MAXMODLNG, REFERENCER+3 : 1511 ; 
03 00006, CF ES 00166 BLBS LIBSGL_CREFLAGS, 10$ : 1513 ; 
(7 08 28 Soler 10$:  MOVC3 #8, FAO_SYMDESC, SYMBOLFAODESC + 1515 
(7 08 8 0176 MOVC3 #8. FAO“MODESC, REFNCFAODESC : 1516 
A7 84 8F 9B Wve MOVZ7BW #152, CRFESYMSUBHDR : 1517 
A7 FF7C CD 9E O18 MOVAB SYMSUBHDR1, CRFSYMSUBHDR+4 : 1518 
48 AZ 9F 00189 PUSHAB CRFSYMSUBPROTO2 : 1519 
67 07 (C1 1 C ADDL3 #7, MAXMODLNG, -(SP) > 1521 
40 A? 9F 001 PUSHAB CRFESYMSUBPROTO1 : 1519 
A? 01 ¢1 0019 ADDL3 #1, MAXSYMLNG, -(SP) : 1520 
0008 C7 SF 00198 PUSHAB FAQ_EXCLAM : 1519 
3 A? 9F 0019C¢ PUSHAB CRF SYMSUBHDR ; 
A? 9F 0019F PUSHAB CRF SYMSUBHDR ; 
00C8 C7 OF OO1A2 PUSHAB FAO_CREFAO2 : 
68 08 FB 001A6 CALLS #8, SYSSFAO ; 
56 38 «= A?)so9E «(OO1A9 VAB CRE SYRSUBHDR+B, DESC : 15 ; 
66 B4 8F 9B OO1AD MOVZBW #132, ( ESC) : 15 
Ab Ferg cD 9E 00181 MOVAB SYMSUBHDR2, 4(DESC) : 13 i 
58 A? 9F 00187 PUSHAB CRFSYMSUBPROTO4 : 1525 
67 07 C1 OO1BA ADDL3. #7, MAXMODLNG, -(SP) : 1527 
50 A? 9F OO1BE PUSHAB CRFSYMSUBPROTO3 > 1525 
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#1, MAXSYMLNG, =(SP) 
FAO_EXCLAM 


pest 

DESC 

FAO_CREFAO2 

#8, ~SYSSFAO 
CRESYMHEADER, CURHEADER 
CRFSYMSUBHDR, CURSUBHDR 
LINESPERPAGE, RO 

RO, LINECOUNT 

1 > =(SP) 

-4(RO) 

LISTINGWIDTH 
LIB_CRFSYMVAL 

#6, ~CRESOUT 

#1, LIBSGL_CREFLAGS, 12$ 
CREVALHEADER, CURHEADER 
CREVALSUBHDR, CURSUBHDR 
LINESPERPAGE, RO 

RO, LINECOUNT 

#1. =(SP) 

RO 

-4(RO) 

LISTINGWIDTH 
LIB_CRFBYVAL 

Ay CRF SOUT 

We, LIBSGL_CREFLAGS, 13$ 
#8, FAO_MODESC, SYMBOLFAODESC 
#8. FAO-SYMDESC, REFNCFAODESC 
s 


MAXMODLAG, SYMBOLFIELD+3 

1, MAXSYMLNG, REFERENCER+3 
#132, CREMDFSUBHDR 
MDF SUBHDR1, CRFMDFSUBHDR+4 
CRFMDF SUBPROTOT 


#1, MAXMODLNG, -(SP) 
FAO_EXCLAM 

CRF ADF SUBHDR 

CREMDF SUBHDR 
FAO_CREFAO3 

#6, SYSSFAO 
CREMDFSUBHDR+8, DESC 
#132, (DE 

MDFSUBHDR2, 4(DESC) 
CRFMDF SUBPROTO 

#1, MAXMODLNG, -(SP) 
FAO_EXCLAM 

pest 

DESC 

FAO_CREFAO3 

#6, “SYSSFAO 
CREMDFHEADER, CURHEADER 
CRFMDFSUBHDR, CURSUBHDR 
LINE SPERPAGE R 

RO, LINECOUNT 

#1. =(SP) 
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12 
LIB_CROSS 18-56 -1984 01:48: VAX-11 Bliss-32 V4.0-742 
yoe=600 12-80-1384 93399203 DISKSVMSMASTER: CLIBRAR.S 
: : : 1383 1 yi cross_one_module (keydesc, keyrfa) = 
: 460 1585 2 i++ 
> 461 1586 : 
: 46 128f ! This routine is called by the he procedures for each module 
; 46 1588 ! in the index that matches the current /only module name. The 
: 464 1589 ! module is read in its entirety and a cross reference is added to 
: ret 1290 the cross reference in progress. 
: 467 159 i Inputs: 
: 269 1894. 5 i keyd int ing descriptor for modul 
; : eydesc ointer to string descriptor for module name 
; ry 1232 heyrte Sointer to rfa oF nodule’ y 
: 47 1899 ine 
; 47 1598 
: 474 1599 2 MAP 
: 475 1600 keydesc : REF BBLOCK, 
: ry A 130) § keyrfa : REF BBLOCK; 
: 478 1808 2 LOCAL 
3; 479 1604 status, 
; 480 1605 bufdesc : BBLOCK Cdsc$c_s_bin], 
: re 34 1938 § recbuf : BBLOCK Clbr$c_maxrecsiz); 
: 483 P 1608 2 perform (Lib_get_zmem (mnb$c_fixedsize + .keydesc Cdsc$w_length], 
> «484 1609 2 curmod)); TALlLocate module name block 
> 485 1610 2 curmod Cmnb$b paging? = phevdesc Cdsc$w_length]; 
: 486 1611 2 IF .keydesc Cdsc$w_ angen TR_.maxmodlng 'Check for new larger module name 
: 487 16l¢ 2 THEN maxmodlng = .keydesc Cdsc$w_length]; 
: 488 1615 2 CHSMOVE (.keydesc Cdsc$w_length], .keydesc (Cdsc$a_pointer], 'Copy module name 
; P24 a § curmod Cmnb$t_name)); 
; 491 1616 é } FIND the module so we can read the text 
: 493 P 1618 2 rms_perform (Lbr$find (Lib$gi_libctl, .keyrfa), : !Point to the module 
> 494 1619 § Lib$_lookuperr, . Ubr$gl_rmsstv. 1, Lib$Sgl_libfdb Cfdb$l_namdescJ); 
> 495 1620 bufdesc Cdsc$w_length) = lbr$c_maxrecsiz; 
; 496 1621 § bufdesc Cdsc$a_pointer] = recbuf; 
; rt 1oe¢ § recdesc dsc$a_pointer] = recbuf; !xetemp 
; 499 1624 Read the module and dispatch on each record 
: 501 1626 WHILE (status = LbcSoet record (Lib$gl_libctl, bufdesc, recdesc)) NEQ rms$_eof 
; 502 1627 2 DO perform ((.recdispatch L.objrec Cobj$b_rectypj]) ()5; 
s 50> 1628 found! = true; 
: 504 1o¢? RETURN true 
3; 35 1630 1 END; 'Of cross_one_module 


007C 00000 CROSS_ONE_MODULE : 
-@ORD Save R2,R3,R4,R5,RO 

56 0909" CF OE 90002 MOVAB CURMOD 

5E F7F CE 9E 0000 MOVAB -2056(5P), SP 


a 
a @ 


< 


mien ia te iao tminiminnia ia iminiaiai=aianiai=aiains 


SS — 4 


12 
LIB ROSS 1b-Sep-1 4 01:48: VAX-11 Bliss-32 V4.0-742 21 
vite 1a-Sep- 13be 03:98:98 D1 SKSVMSMASTER: CLIBRAR. SRCICROSS. B32. 79° (4) | 
56 0c PUSHL 6 : 1609 | 
52 04 =A 00 200 MOVL KEYDESC, R2 : 
7E c 1 MOVZWL (R2), <(SP) : 
6E C6 0001 ADDL2 #9, (SP) : 
00006 CF s Fe 001 CALLS #2 L1B_GET_ZMEM : 
1 EB ote BLBS STATUS, “1 : 
50 6 p0 0021 1$: MOVL § CURMOD, RO + 1610 
08 A0 62 90 00024 MOVB  (R2), &C(RO) : 
2c AG 62 10 90 FD 99 cMPZV #9, #16, (R2), MAXMODLNG + 1611 
c on 4 MOVZWL (R2), MAXMODLNG + 1612 
09 AO f 83 5 3§ 88 4 2$: MOVC3 (Rg) a4(R2), 9(RO) + 1614 
08 AC DD 0003A PUSHL KEYRFA : 1619 
00006 CF 9F 0003D PUSHAB LIBS$GL L1BCTL : 
000000006 00 92 FB 90041 CALLS #2, LBRSFIND : 
1D 50 £8 00048 BLBS STATUS, 3$ : 
000000006 00 DD 00048 PUSHL LBRSGL _RMSSTV : 
Py | 
ADDL # ° L LL BFDB, = SP) P| i 
7E 0000G CF 10 ci 00055 ADDL 3 16, LIB$GL_LI ( 
000000006 8F DD 00058 PUSHL #LIB$_LOOKUPERR ; 
000000006 00 05 FB 00061 CALLS LT SIGNAL ; 
FB AD 0800 8F BO 00068 3$: VW 648, BUFDESC + 1620 
FC AD 6E 9E 0006E MOVAB RECBUF. BUFDESC+4 + 1621 
FB OA 6E 9E 00072 MOVAB RECBUF, RECDESC+4 > 1622 
F4 AG 9F 00076 4$: PUSHAB RECDESE + 1626) 
F8 AD 9F 00079 PUSHAB BUFDESC : 
00006 CF 9F 0007C PUSHAB L BS$GL_LIBCTL : 
000000006 09 03 FB 90080 CALLS a3, LBRSGET. RECORD ; 
0001827A BF 32 D1 Q00BA cHPL StAtUs, #98938 : | 
50 F8 B6 9A 00093 MOVZBL @0BJREC, RO > 1627) 
29 0000" CF49 D0 9009? MOVL RECDISPATCHCROJ, RO : | 
D3 50 €8 OOOA0 BLBS § STATUS, 4$ : 
04 000A3 RET ; 
FC AG 01 DO OOOAS 5S: MOVL #1, FOUND1 > 1628 
50 01 DO 000A8 MOVL #1. RO : 16¢9 
04 O00AB RET > 1630 


; Routine Size: 172 bytes, Routine Base: S$CODE$S + 0338 


PeSe Ge Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Be oe 


———  - -— rn 1 


aa 1B-2e0-1986 0:48:05 VAN! aLise=32 v4. 0-742 
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3S do 


RCICROSS.B32:99" a 


; 7 1631 ROUTINE prohdr = 

: $08 163g BEGIN 

; 9 16 : 

; 510 1634 BIND 

: 21! 19 5 modidstring = objrec Cmhd$t_name] + .objrec Cmhd$b_naming] : VECTOR C,BYTE]; 

H 218 16 : 
> «514 1638 RETURN true 

3 313 1639 1 END; ! OF prohdr 


0000 00000 PROHDR: .WORD Save nothing : 1631 
50 01 bdO 00002 MOVL #1, RO ; 1638 
04 00005 RET 3: 1639 
; Routine Size: 6 bytes, Routine Base: S$CODES + 03E4 
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LIB_CROSS 1b-Se 1984 01:48:05 VAX=11 Bliss-32 V4.0-742 
voe=600 1235-1 98e 93:99:88 DISKSVMSMASTER: CLIBRAR.SRCICROSS.B32 


s $17 1640 1 ROUTINE progsd = 

s Sie 1641 BEGIN 

; 519 1006 : 

; 5 ; eck i** Verify GSD d d di h he f b 
3 : erify records an spatch on the four sub-types: 
: 58¢ 1645 3 i (0) P=SECTION definition 4 
2 1646 : (1) Symbol definition/reference 

> 524 1647 ! (3 Entry point definition 

; 252 1648 ! (3) Procedure declaration 

3 3ee 1649 Hoes 

gs Ser 1650 BIND ‘ 

; 528 1651 gsddispatch = PLIT ( 

3 dey 1626 propsectdef, 

3 30 165 symbols, 

3 3351 1654 entpnts 

3 236 1655 procedef, 

; 3 1656 symbols, 

; 534 1657 pro_epmw, 

3 335 1658 procedef, 

3; 3 1659 § pro_idc, 

3 3S7 1666 pro_env, 

; 538 1661 pro_lsy, 

3; oP 1096 pro_lepm, 

; 540 166 pro_lpro 

; 541 1664 pro_spsc) : VECTOR; 

; 26g 1665 

3 636 1666 gsdoffset = obj$c_subtyp; 

: 544 1667 

> 545 1668 2 WHILE .gsdoffset LSSU argc tne DO 

; 546 1669 2 perform (( .gsddispatch C.objvec C.gsdoffsetJ]) ()); 
: 547 1670 2 RETURN true 

; 548 1671 1 END; ! Of progsd 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00000000v 00000000v 00000000v 000000 
00000000v 00000000v 00000000v 000000 O_EPMW, PROCEDEF, PRO_IDC, - 


00 
00Vv RO_ . . . 
PRO_LSY, PRO_LEPM, PRO_CPRO, - 


s¢ 
GSDDISPATCH= P.ABH 


PRO_ENV 
PRO-SP 


-PSECT S$CODES,NOWRT,2 


0094 0006 PROGSD: .WORD Save R2 

5 0000" CF ; 0 MOVAB GSDOFF SET R2 

6 1 D 9 MOVL #1, GSDOFFSET 

62 08 A2 1 ! FD 6 OA 1$: CMPLV #9. #16, RECLNG, GSDOFFSET 
50 0c a2 6 ct 0 1g ADDL3 GSDOFFSET, OBJVEC, RO 

3 60 9A 001 MOVZBL (RO), R 

0 0000°CF40 DO OOO1A MOVL GSDD{ SPATCHCROJ, RO 

60 00 FB 00020 CALLS #0, (RO) 


000000D 00214 -LONG 13 
V 00000000V 00000000V 00218 P.ABH: .ADDRESS PROPSECTDEF, SYMBOLS, ENTPNTS, PROCEDEF, 
00000000v 44 0 iz SYMBOLS 
00000000v 0024 


Page 
A i 


23 
(6) 


<r 


Fo 


if: $60 1984 F398 ee PTS UmGMASTERSCL laean Secdcross.83204%" (25 

E4 50 §8 9 LBS STATUS, 18 

50 01 06 28: = MOVL = #1, RO : 1670 
04 000 RET 1671 


; Routine Size: 43 bytes, Routine Base: SCODE$S + O3EA 
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6. 


NE pronul = 
Null routine 


Save nothin 
#1, RO 


6 bytes, Routine Base: S$CODE$ + 0415 


; Routine Size: 


‘propsectdef'; 
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H 12 
ibe=600° propsectdet 1pxee= 13 Re 93:98:88 Nt WHASTERSCL fanan SRCICROSS.B32¢4°" (BS 


; 559 1 ROUTINE propsectdef = : f 

i 860 i BEGIN. a 
; 961 1 : ‘ 

: 6¢ 1 ioe 3 § 

; 1684 : process P-section definitions : } 
; 564 1685 2 i : 

; 565 1 ine ; 

: 268 16 : & 

3 36 16 § BIND 2 § 

; 568 19 psctdef = objvec C.gsdoffset] : BBLOCK; : f 

; 569 1690 @ LOCAL : § 

; 0 163) Length; : ; 

3 a 1698 length = RET ey tak - SBYTEOFFSET(gps$t_start) + ! Compute the offset of next GSD | 

; 57 1694 -psctdef Gpssb naming); 3 § 

; 574 1695 sdoffset = .gsdoffset + .length; ! From Length of this ; f 

. of 1696 ETURN true s 4 

; 576 1697 1 END; ! Of propsectdef : 

3 { 

sf 

q 

0000 00000 PROPSECTDEF : = 4 

.WOR Save nothing : 1680 . 

50 0000° CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBJVEC, RO : 1689 3 ¢ 

50 08 AO 9A QOOODA MOVZBL 8(RO), LENGTH ; 1693 3 (| 

50 09 CO 0000E ADDL g #9, LENGTH : ; 

0000" CF 50 CO 00011 ADDL LENGTH, GSDOFFSET 3; 1695 3 § 

50 01 dO 00016 MOVL #1, RO : 1696 S | 

04 00019 RET : 1697 : 

; Routine Size: 26 bytes, Routine Base: SCODES + 0418 : ; 
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-1984 01:48:05 VAX-11 Bliss-32 V4.0-742 Page 27 
ats ri 93:95:08 DISKSVMSMASTER=CLIGRAR. SRCICROSS.B32:1> (3 
ZSBTTL ‘symbols’; 

ROUTINE symbols = 
BEGIN 


LOCAL 


length; 
BIND . 


symbolrec = objvec C.gsdoffset] : BBLOCK; 


IF NOT .s 
THEN BEG] 
Length = SBYTEOFFSET(srf$t_name) = SBYTEOFFSET(srf$t_start) + 
Ss pay Csr f$b_namingJ; 
symbolstring = symbolrec (srf$b_namingJ; ! Point to the symbol string 
iit = a_zero; 


ELSE 

on C.gsdoffset] EQL obj$c_gsd_symw ! If word psect 
BEGIN 
length = SBYTEOFFSET(sdfwSt_name) - SBYTEOFFSET(sdfwS$t_start) + 

symbol rer EsdfwSb_namingJ; 

symbolstring = symbolrec (Csdfw$b_namlngJ; ! Point to the symbol 
pyabelvat = symbolrec(sdfw$l_valuel; 

ELSE 


BEG! 
Length = SBYTEOFFSET(sdf$t_name) - SBYTEOFFSET(sdf$t_start) + 
a oe pa sdf$b_namingJ; 
symbolstring = symbolrec (Csdf$b_namingJ; ! Point to the symbol 
pyasotval = symbolrec(sdf$l_value); 


END; 
rform (prosymbol ()); 


e ; 
gsdot fset = .gsdoffset + .length; ! Update the gsd offset for next 
ETURN true 

END; 'Of symbols 


000C 00000 SYMBOLS:.WORD Save R2,R3 : 1700 
0000' CF i: 0000 MOV SYMBOLSTRING, R3 : 
0 FC =A3 C1 0000 ADDL GSDOFFSET. OBJVEC, RO : 1706 
01 €0 0000 BBS #i, 2(R0). 1$ : 1709 
AO 9A 991 MOVZBL 4(RO), LENGTH > 1711 
05 ¢cO 0001 ADDL LENGTH ; 
AO 9E 0001 MOVAB 4 (RO), SYMBOLSTRING + 1713 
A’ 9E 001 MOVAB A_ZERO, SYMBOLVAL > 1714 
27 11 00 BRB 35 : 1709 
60 1 000 : 1719 
12 12 00027 : 


pasetrec Cgsy$v_defj 
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91 bytes, Routine Base: $CODE$ + 0435 


; Routine Size: 


K 12 
yoez600° Freee ee Oe eo ee MIRC SUMBHASTER LL 1BgaR SRCICROSS.B32¢4°" (105 


$s 


; ° 1738 } ZSBTTL ‘entpnts'; 

3 6 ¢ 1741 1 ROUTINE entpnts = 

: bbe peg § RESIN 

; 625 1744 LOCAL 

3 6 § 1745 Length; 

3; 6 1746 BIND 

; ? 8 1c symbolrec = objvec C.gsdoffset] : BBLOCK; 

; 630 1949 Length = SBYTEOFFSET(epm$t_name) - bd phat he, rap crits + 

; 631 1730 oe epm$b_namingJ; 

3; 6 ¢ 1751 symbolstring = symbolrec Lepm$b_namingJ; ! Point to the symbol 
3; 6 1736 symbolval = symbolrecCepm$i_addrsJ; 

3; $6 17 perform (prosymbo 3 

; 635 1754 sdoffset = .gsdoffset + .length; ! Else update the offset for next 
; 636 1755 ETURN true 

; 637 1756 1 END; ! Of entpnts 


000C 00000 ENTPNTS:.WORD Save R2,R3 : 1741 
53 0000" CF 9E 0000 MOV GSDOFFSET, R3 : 
50 oc A 63 ci 0000 ADDL3 GSDOFFSET, OBJVEC, RO : 1747 
5 0B AO 9A 9000 MOVZBL 11(RO), LENGTH + 1749 
5 0c CO 0001 ADDL2 #12, LENGTH : 
04 A 0B AO SE 0001 MOV 11(RO), SYMBOLSTRING : 1751 
18 «AB 05 Aad 9E 00018 MOV 5(RO), SYMBOLVAL : 1238 
0000v CF 00 FB 0001D CALLS #0, PROSY : 175 
06 0 £9 900 é BLBC STATUS, 1$ : 
4 52 CO 000 ADDL2 LENGTH. GSDOFFSET : 1754 
50 01 DO 00028 MOVL #1, RO > 1755 
04 00028 1$: RET : 1756 


af8 RAMA AAMAS... NOs 


; Routine Size: 44 bytes, Routine Base: S$CODE$S + 0490 


Lee ee eEeEee -—_—— 


12 
LIB_CROSS 18-$6 -1984 7:48:05 VAX-11 Bliss-32 V4.0-742 P 30 
yOe2600 procedef 1 73001382 93:95:88 DISKSVMSMASTER:CLIGRAR. SRCJCROSS.B32:1> (11) 


; 639 1757 1 2SBITL ‘procedef'; | 
; 640 1758 #1 
; 641 1759 1 ROUTINE procedef = 
Bye 8 hae 
> 644 1706 ! A procedure definition is an extended entry point definition, carrying with 
; 645 176 ' it a description of the procedure's formal arguments. processing these consists 
$ one 1764 ! in normal symbol definition processing followed by:- 
> 64 1765 ' (1) Validation of the format of formal description (i.e. just check 
> 648 1766 : that minimum number of arguments specified is less than 
; 649 1767 : or equal to the maximum. 
; 650 1768 ! 
3 63) 1769 : 
3 626 1770 LOCAL 
; 65 1771 argcount; 
: 38 1778 5 IF .objvec C.gsdoffset) EOL obj$c_gsd 
; -objvec C.gsdoffset obj$c_gsd_prow 
: 636 1774 3 THEN , — 
: 657 1775 perform (pro_epmw ()) 
; 658 1776 2 ELSE 
; 659 1777 2 perform (entpnts ()); 
; 660 1778 § 
; 661 1779 BEGIN 
; 066 1780 3 BIN 
; 66 1781 3 formals = objvec C.gsdoffset] : BBLOCK; . 
; 664 178e 3 sdoffset = .gsdoffset + fml$c_size; ! Update record pointer 
; 665 1783 3 F (argcount = .formals Cfml$b_maxargs]) NEQ 0 ! If args 
; 666 1784 3 THEN INCRU i FROM 1 TO .argcount ! then skip them 
; 667 1785 4 DO BEGIN 
; 668 1786 4 BIND 
3 $3 re? : argdesc = objvec C.gsdoffset] : BBLOCK; 
: 671 1789 4 sdoffset = .gsdoffset + .argdesc Carg$b_bytecnt] + arg$c_size; 
3; 672 1790 3 ND; 
; 673 1791 3 RETURN true 
3: 674 1G 2 ND; 
s 675 1793 1 END; ! Of procedef 
000C 00000 PROCEDEF: 
-WORD Save R2,R3 3: 1759 
53 0000' CF 9€ 0000 HOVAB GSDOFFSET, R3 : 
50 Oc A3 63 ¢1 0000 ADDL GSDOFFSET, OBJVEC, RO 3: 1773 
06 60 91 0000C MPB (RO), #6 3 
07 12 QO00F BNEQ 1$ 3 
0000v CF 00 FB 00011 CALLS #0, PRO_EPMW 3: 1775 
4 11 Big BRB 2% 3 
BB AF Fe 4 1$: CALLS #0, ENTPNTS : 1777 
2 E 1C 2$: BLBC_ STATUS, 6$ ; 
50 oc A 6 C1 OO01F ADDL GSDOFFSET OBJVEC, RO : 1781 
6 : CO 9 4 ADDL2 #2, GSDOFFSET : 178 
52 01 AO 9A 7 MOVZBL 1(RO), ARGCOUNT : 178 
1¢ 3 8) B BEQL 5$ 3 
51 01 OD 02D MOVL “i, 1 ; 1784 
, 
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procedef 
77 bytes, 


; Routine Size: 


N 12 
LIB _ 16-Sep-1984 01:48: VAX-11 Bliss-32 V4.0-742 2 
yOu: pro_epmw 1378007138 9:98:83 DISKSVMSMASTER: CLIBRAR.SRCICROSS. B32" 7 9 435 
; 677 1794 1%SBTTL ° w'; 
: $F 1536 1 ROUTINE pie 
Py ro_e = 
: 680 1797 2B8EGIN. 7 
: 8B 1598. 5 i p ee 
: re 1800 rocess entry points with word psect 
: 686 1801 LOCAL 
; 685 1 8 Length; 
: ra 1802 — bol bjvec C.gsdoffset] : BBLOCK Rc 
; symbolrec = . : ; ; 
eB8 1895 y objvec C.gsdoffse 
: 690 1807 2 Length = SBYTEOFFSET (epmust. nane) - SBYTEOFF SET (epmwSt_ start) + s 9 
; 691 1808 Lrec CopaySb_ namLng 3; 9 
; 69 1809 symbolstring = pyqbet rec “Egpmusi ng nam ing; ! Point to the symbol AR | 
; 69 1810 symbolval = symbolrecCepmw$l_addrsJ; » Y 
3: 694 1811 perform (prosymbol ()); 3; 3 
; 695 1a\¢ sdoffset = .gsdoffset- + , length; ' Else update the offset for next 3 
; 696 181 ETURN true s 9 
; 697 1814 1 END; ! Of pro_epmw : q 
; § 
’ 3 g 
: 4 
000C 00000 PRO_EPMU: : 
-WORD Save R2,R3 : 1796 : 9 
53 0000' CF 9E 0000 MOVAB GSDOFFSET, R3 : +8! 
50 0c A3 63 ¢1 0000 ADDL3 GSDOFFSET, OBJVEC, RO 3; 1804 3; 3 
52 0c Ad 9A 0009C MOVZBL 12(RO), LENGTH + 1807 3 4 
5 0D CO 00010 ADDL2 #13, LENGTH : : 3 
04 A wi AO 9E 00013 MOVAB 12(RO), SYMBOLSTRING 3; 1809 9 
18 A3 06 AO YE 00018 MOVAB 6(RO), SYMBOLVAL ; 1810 s 4 
0000v CF 00 FB 0001D CALLS #0, PROSYMBOL > 1811 3; 
06 50 €9 00022 BLBC STATUS, 1$ : | 
63 52 CO 00025 ADDL2 LENGTH, GSDOFFSET 3 1812 , § 
50 01 00 00028 MOVL #1, RO : 1813 > 4 
04 00028 1$: RET 3 1814 


3; Routine Size: 44 bytes, Routine Base: S$CODE$ + 0509 


; 698 1815 1 


: 700 1 16 1 ZSBTTL ‘pro idc'; 

: 3 : : : ROUTINE id 

; ro_idc = 

70 1819 > BEGIN 

; 704 1820 : 

:; 705 1821 : Process random entity check 

s fe 1 ¢ ! by skipping it. 

s or 1 : 

; 708 1824 LOCAL P 

; 709 1825 identstring : REF VECTOR oi ! pointer to ident string 

; 710 1826 objectname : REF VECTOR C,BYTEJ, ! pointer to object name string 
: 71i 7 Length; 

; 6 1826 BIND 

3 oi? \S6p idc_rec = objvec C.gsdoffset] : BBLOCK; 

oe a} 1831 identstring = idc ree Ctaery nening2 + 1+ .idc_rec Cidc$b_naming]; 
; 716 1836 objectname = identstring (1]°+ .identstring (0); 

Te ah 183 length = objectname [1] + .objectname [0] - idc_rec; 

; 718 1834 sdoffset = .gsdoffset + .length; 

3; i? 1835 ETURN true 

s 20 1836 1 END; ! Of pro_idc 


0004 00000 PRO_IDC:.WORD Save R2 
52 0000" CF 0000" cF ¢1 00002 ADDL3 GSDOFFSET, OBJVEC, R2 

50 03 A2 9A OO00A MOVZBL 3(R2), RO 
50 04 A042 9E 00005 OVAB 4 (RO)ER2], IDENTSTRING 
51 60 9A 0001 MOVZBL (IDENTSTRING) 
50 01 A140 9E 00016 OVAB. 1(R1)CIDENTSTRING], OBJECTNAME 
51 60 9A 0001B MOVZBL (OBJECTNAME), R1 
50 51 CO OO001E ADDL 2 R1, OBJECTNAME 
50 52 C2 00021 SUBL2 R2. RO 

50 D6 00024 INCL. LENGTH 

0000" cF 50 CO 00026 ADDL2 LENGTH, GSDOFFSET 
50 01 DO 00028 MOVL #1, RO 
04 0002E RET 


; Routine Size: 47 bytes, Routine Base: $CODE$ + 0535 


5 Fas 


1837 1 


13 
LIB_CROSS 1e-Se 1984 01:48:05 VAX=11 Bliss-32_V4.0-742 
vbe=600 pro_idc 10-38 p- 1382 93:99:98 DISKSVMSMASTER: CLIBRAR.SRCICROSS.B32 


79° (435 


Ee a ee 


13 
18-Sep-1984 91:48:03 VAX-11 Bliss-32 V4.0-742 Pa age 34 
14-Sep-1984 12:37:58 DISKSVMSMASTER: CLIBRAR.SRCICROSS.B32;1 (14) 


LAB cr a 


: ; 1838 ] ZSBTTL ‘pro env'; 

: 725 1846 1 ROUTINE pro env = 

: 189 1Bep 8 ON 

: 158 1 rk i Process environment definition 

; (2 1844 ! by skipping it. 

: 730 1845 ! 

: 731 1846 LOCAL 

; bsg 1868 Sein | Senate 

735 1856 § env_rec = objvec C.gsdoffset] : BBLOCK; 

: 737 1826 é length = env_rec Cenv$t_name] - objvec C.gsdoffset] + 
; 738 1853 2 env_rec Cenv$b _namLngJ; 

; a4 1938 : gedottset = = .gsdoffset + . length; 

> 741 1856 1 END; ! Of pro_env 


0004 00000 PRO_ENV:.WORD Save R2 : 1840 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBJVEC, RO > 1849 
51 50 50 ¢€3 O000A SUBL3. RO, RO. Ri + 1852 
52 05 AO 9A O000E MOVZBL 5(RO), R2 > 1853 

51 52 CO 00012 ADDL2 R2, R : 
50 06 Al 9E 00015 MOVAB 6(R1), LENGTH : 1852 
0000° CF 50 CO 00019 ADDL2 LENGTH, GSDOFFSET PF 54 
50 01 DO O001E MOVL #1, RO : 1855 
04 00021 RET + 1856 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 0564 
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; Routine Size: 


767 


cere 4 


13 
Sep-1984 12:37:58 DISkSVMSMASTER:CLIBRAR-S £49 «133 
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XSBTTL ‘pro lsy'; 

ROUTINE pro_lsy = 

aa. 

i Process local symbol definition/reference 
by skipping it. 

LOCAL 


Length; 
BIND 


lsy_rec = objvec C.gsdoffset] : BBLOCK; 
IF NOT .lsy_rec Clsy$v_defJ 


HEN 
Length = S$BYTEOFFSET(Lsrf$t_name) - SBYTEOFFSET(Isrf$t_start) + 
elsy rec Clsrf$b_naming] 


SE 
length = SBYTEOFFSET(Lsdf$t_name) - SBYTEOFFSET(Lsdf$t_start) + 
-lsy_rec Clsdf$b_namlingJ; 
goter coat = .gsdoffset + .length; 
A ge true 


tt a as Ss a ts  —) Os 5 -s —4 — 9 3 2) 2) 2 ss 


0 69 Cd CD C9 C9 CD 09 C9 C9 C0 C9 CD C9 CD CD 
SOOWONAULS WNC OONOU ES WOO 


= FOPoNoPononononofononorononoronofnofnonn 
m m - 
cc 


NINN NN SNA AAA AAO 


! Of pro_lsy 


0000 00000 PRO_LSY:.WORD Save nothing : 1860 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBJVEC, RO + 1869 
09 02. AO 01 £0 OO00A BBS #1, 2(RO). 1 + 1871 
50 06 AO 9A 0000F MOVZBL 6(RO), LENGTH : 1873 
50 07 CO 00013 ADDL2. #7, LENGTH : 
07 11 00016 BRB : 
50 0c AO 9A 00018 18: MOVZBL 12(RO). LENGTH : 1876 
50 0D cO 0001C ADDL 2 #13, LENGTH : 
0000" CF 50 CO OOO1F 28: ADDL2 LENGTH, GSDOFFSET : 1878 
50 01 dO 00024 MOVL #1, RO + 1879 
04 00027 RET > 1880 


40 bytes, Routine Base: $CODE$ + 0586 


1881 
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cn = " 


ref 


13 
L OSS 16-Se 1984 01:48:05 VAX=11 Bliss=32 V4.0-742 36 
vou=000 pro_lepm 103-1984 9:99:88 D1 SKSVMSA ASTER: CLIBRAR. SRCICROSS.B32; nat 


; 769 1 1 ZSBTTL ‘pro _lepm'; | 
; rr 18 i 
; 771 1884 1 ROUTINE pro_lepm = 
; of : 5 BEGIN 
: 774 1 5 ! Process local ayaa entry point definition 
3 773 1888 : by skipping it 
3; re 1889 : 
3; 777 1890 LOCAL 
; 778 1891 Length; 
; 779 1 3 BIND 
: 780 189 lepm_rec = objvec C.gsdoffset] : BBLOCK; 
: 93 1898 
; 7 1896 length = meibecthneiieccman + name) = SBYTEOFFSET(Lepm$t_start) + 
: «784 1897 epm_ rec x nee _namlngJ; 
3 es 1898 itty. = .gsdoffset + Length ! Else update the offset for next 
; 786 1899 ETURN true 
; 787 1900 1 END; ! Of pro_lepm 
-WORD Save not 3 3 1884 
50 0000° CF 0000° CF C1 00002 ADDL3 GSDOFFSET, OBJVEC, RO : 1893 
50 OE AQ 9A QO00A MOVZBL 14(RO) GTH : 1896 
50 OF CO OO00E ADDL2 #15, LEN ; 
0000" CF 50 ¢cO 00011 ADDL2 LENGTH, GSDOFFSET : 1898 
50 01 00 00016 MOVL #1, RO : 1899 
04 00019 : 1900 


; Routine Size: 26 bytes, Routine Base: $CODE$ + OSAE 


| 

| 

0000 00000 PRO_LEPM: " 

; 788 1901 1 | 
| 

| 

| 


; 790 1308 
; 791 19 

; 79 1904 
; 1905 
; 794 1208 
; 795 190 
3 es 1908 
: 79 1909 
; 798 1910 
; 799 1911 
: 800 1316 
: 801 191 
: 80 1914 
; 80 1915 
; 804 191é 
; 805 1917 
; 806 1918 
; 807 1919 
; 808 1920 


; 809 


1921 


F 13 
LIB_CROSS 16-Sep-1984 01:48:05 VAX=-11 Bliss-32 V4.0-742 Pa 7 
vou=600 pro_\pro 10. 3ee 1984 12:39:58 D1 SKSVMSMASTERSCLIBRAR-SRCICRO“S.B32¢9% (199 


! ZSBTTL ‘pro_lpro'; 
1 ROUTINE pro_lpro = 
BEGIN 


i Process local symbol procedure definition 


by skipping it. 


. 
| 
| 
| 
| 

LOCAL | 

Length; | 

BIND 

lpro_rec = objvec C.gsdoffset] : BBLOCK; 
Length = SBYTEOFFSET(Lpro$t_name) - SBYTEOFFSET(Lpro$t_start) + 
-lpro_rec Clpro$b_naming]; 
sdoffset = .gsdoffset + .length; ! Else update the offset for next 


ETURN true 
END; ! Of pro_lpro 


0000 00000 PRO_LPRO: 


» WORD Save pesntng ; 1904 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBUVEC, RO + 1913 
50 OE AO 9A OOOOA MOVZBL 14(RO), LENGTH : 1916 
50 F CO 0000 ADDL 2 #15, LENGTH : 
0000° CF 50 C0 00011 ADDL2 LENGTH, GSDOFFSET + 1918 
50 01 DO 00016 MOVL #1, RO : 1919 
04 00019 RET : 1920 


; Routine Size: 26 bytes, Routine Base: S$CODE$ + 05C8 


1 


<r 


1$-¥en-1984 04:8 ee Wed memAStERs CL tanan SRcICROSS.832-4° ‘ail 


ting 


3 81) 19 ¢ 1 ZSBTTL ‘pro _spsc'; 

; \¢ 19 1 
; #81 1924 1 ROUTINE pro_spsc = 
; «B14 1925 BEGIN | 
; 815 19 § ! 

: 1$ 19 i Process shareable image psect definition 

; 81 1928 i by ignoring it. 
; 818 1929 i 
; 819 19350 LOCAL 

; 820 1931 Length; 

; 1 19 ¢ BIND 

; : § 1° ? spsct_def = objvec C.gsdoffset] : BBLOCK; 
; 824 1935 length = SOV EEUTY OST SOgneeN a a ~ vedi pied his, te heat + 

; 825 1936 apne’ t edet Csgps$b_namlng 

; 826 1937 pierrees = > eearrene + ength 
; ase 1938 ETURN | 
; 828 1939 1 END; ! Of pro _spsc 


0000 00000 PRO_SPSC: 


» WORD Save petbing : 1924 
50 0000" CF 0000" CF C1 00002 ADDL3 GSDOFFSET, OBUVEC, RO + 1933 
50 0C AO 9A OOOOA MOVZBL 12(RO), LENGTH + 1935 
50 OD CO 0000E ADDL2. #13, LENGTH : 
0000" CF 50 CO 00011 ADDL2 LENGTH, GSDOFFSET : 1937 
50 01 00 00016 MOVL #1, RO + 1938 
04 00019 RET : 1939 


; Routine Size: 26 bytes, Routine Base: $CODE$ + 05E2 
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ROUTINE prosymbol = 
BEGIN 


B21986 92:99:98 DiSedimenastens cl tan 
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° 1 ° 
: 19 | : 
: 19 ; 
; 19 e+ ; 
3 13 This routine does all the work of processing a symbol ‘ 
; 19 BIND | : 
3 i symbolrec = objvec C.gsdoffset] : BBLOCK; | ° 
: 0 19 LOCAL ‘ 
; 1 13 symdesc : REF BBLOCK, | ‘ 
; : 19 : 
: 4 19 | ; 
; 5 19 IF .symbolstring CO] GTR .maxsyming : 
i 

3 6 19 THEN maxsyming = “symbol ste ing C0]; - : 
; ? 19 perform (Lib get_zmem (snb$c_fixedsize + ogyabe) string CO), symdesc)); : 
; 8 19 symdesc snbSw_ flags) = .symBolrec Cgsy$w flags); : 
; 9 19 symdesc Csnb$b_nam(ng) = Symbol string C07; : 
; 850 19 CHSMOVE (.symbolstring COi, symbolstring Li], symdesc Csnb$t_name]); | ; 
; 851 19 symdesc Csnbd$l_value] = ..symbolval; ; 
; 26 19 weak 109 = ssyapolrec Cgsy$v_weakJ; ° 
; 85 19 definition = ee ‘ 
3; 854 1964 IF “syabolres gsy$v_def3 ‘ 
; 855 1965 THEN definition = true; : 
; 856 1966 IF goat, ererlone Clib$Sv_crfbysym] 'If cross ref by symbols : 
; 857 1967 THEN BEGIN : 
; 858 1968 IF .definition fe : : 
; 859 P 1969 THEN perform (LibScrf_ins_key (Lib_crfsymval, symdesc(snb$b_naming], !Insert key definition if a definit | : 
; 860 1970 ; syadesc Csnb$l_valueJ, symdesc Csnb$w_flagsJ)); : 
; 861 1971 ! THEN perform (crf$Sinsrtkey (lLib_crfsymval, symdesc ie ge " : 
: B66 1976 } symdesc Csnb$l_value], .symdesc Csnb$w_flags])); : 
; He ere : Insert reference : 
> 866 P 1976 perform (Lib$Scrf_ins_ref (Lib _crfsymval, symdesc Csnb$b_namingJ, : 
: 867 1977 curmod Cmnb$b_naming], weakflag, definition)); ; 
; 868 1978 ‘perform (crf$insrtref (Lib_crfsymval, symdesc Esnb$b naming) : 
; 869 1979 3! curmod CmnbSb_naming], .weakflag, .deTinition)); : 
$ 370 ioat END; 'Of cref by symbols : 
3 ors 1986 : If absolute definition, insert reference to value into cross reference by value table | : 
3 -definition -symbolrec Cgsy$v_re : 

74 1984 If .definition AND NOT b Cgsy$ L ; 
; 875 1985 -libSgl_creflags Clib$Sv_crfbyval ’ : 
; 876 P 1986 THEN perform (Lib$crf_ins_ref (Tio cet byyal syngesc Csnb$l_value], .symbolstring, : 
> 877 1987 syndesc Csnb$w_flagsJ, a_zero)); : 
: 878 1988 : THEN perform (crf$insrtref (Lib_crfbyval, sym as, Snb$l_value], .symbolstring, : 
: 879 1989 ; .symdesc Csnb$w_flagsJ, .a_zero)); | ; 
3 1 bad : If cross referencing by modules, insert into the proper table | : 
3 ass 1998 IF .Lib$gl_creflags Clib$Sv_crfbymod] ‘ 
: P 1994 THEN perform (LibScrf_ins_ref (CIF .definition THEN Lib_crfmoddef : 
3 HH P 1995 ELSE Lib crfmodref), : 
; 886 P ieee curmod Canb$b_naming], symdesc CEsnb$b_naming), : 
; 887 199 symdesc isnb$w_flags], a_zero)); : 


see SAN ‘ . 


13 
LIB_CROSS 1b-5e =1984 48:05 VAX-11 Bliss<-32 V4.0-742 p 40 
Oe=000 pro_spsc 1 ~3007 138% 03:48:98 DISKSVMSMASTER: CLIBRAR. SRCJCROSS.B32;1~ (19) | 
ef 


3 ges 1998 ! THEN perform (crf$insrtref (CIF .definition THEN Lib_crfmodd : 
: 889 1999 : ELSE Lib crfmodref), ‘ 
; 890 00 : curmod Cmnb$b_naming], symdesc Esnb$b_naming], ; 
: 891 901 i .symdesc CsnbSw_flagsi, .a_zero)); ; 
; 89 00 RETURN true 3 
: 894 004 1 END; ! Of symbol : 
07FC 00000 PROSYMBOL: ; 
SWORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 : 1941 | ; 
5A 0000G CF 9E 0000 MOVAB LIBS$GL_CREFLAGS, R10 : ; 
59 000000006 60 9€ 0000 MOVAB LIBSCRF_INS_REF. R9 : ; 
SR 0000" cf Hi 000 MOV SYMBOLSTRING, R& : ; 
SE C C2 0001 SUBL2 #12, SP : ; 
57 08 As FC =6AB «C1 00016 ADDL3 GSDOFFSET, OBJVEC, R7 + 1948 ; 
50 00 68 9a 0001C MOVZBL @SYMBOLSTRING, RO + 1955 ; 
38 AB 50 01 99020 CMPL RO, MAXSYMLNG : : 
04 15 00024 BLEG : ; 
38 AB 50 00 00026 MOVL RO, MAXSYMLNG : 1956 ; 
SE DD O00¢A 1$ PUSHL SP > 1957 : 
0B AO 9F 0002C PUSHAB 11(RO) : ; 
00006 CF 08 FB O00¢F CALLS #2, LIB_GET_ZMEM : ; 
63 50 £9 00034 BLBC STATUS, 4$ : ; 
56 6f DO 00037 MOVL SYMDESC, R6 : 1958 : 
08 Ab 02 A? BO O0003A MOVW 2(R7), 8(R6) : : 
50 68 DO 0003F MOVL § SYMBOLSTRING, RO : 1959 
OA Ab 60 90 00042 MOVB (RO), 10(R6) ; 
51 60 9A 00046 MOVZBL (RO), RI : 1960 
0B Ab 01 AO 51 28 00049 OVC3  R1, {(RO), 11(R6) ; 
04 Ab 14 B8 DO 0004F OVL  a@SYMBOLVAL, 4(R6) > 1961 
08 AE 02 A? 01 00 EF 00054 EXTZ2V #0, #1, 2(R7), WEAKFLAG > 196 
04 AE D4 00058 CLRL DEFINITION : 196 
04 02 A? O01 €1 00056 BBC #1, 2(R7), 2$ > 1964 
06 =A 01 DO 0006 MOVL #1, DEFINITION > 1965 
3 6A £9 90067 2$: BLBC $LIBSGL_CREFLAGS, 5$ t 1966 
17 04 AE €9 000 BLBC DEFINITION, 3$ : 1968 
08 A6 SF O006E PUSHAB 8(R6) : 1970 
04 Ad 9F 00071 PUSHAB 4(R6) : 
OA Ab 9F 00074 PUSHAB 10(R6) ; 
O1EA oF 0077 PUSHAB L1B_CRESYMVAL : 
000000006 00 4 FB 7 CALLS #4, LIBSCRF_INS_KEY : 
67 0 : 008 BLBC STATUS, 10$ : 
04 AE 9F 00085 38 PUSHAB DEFINITION ; 1977 | 
OC AE OF 0 PUSHAB WEAKFLAG ; 
7E 10 AB 0 1 ADDL3. #8, CURMOD, -(SP) ; 
OA A6 9F 000 PUSHAB 10(R6) : | 
O1EA 9F 009 PUSHAB L1B_CRESYMVAL : | 
69 FB 9 CALLS #5, LIBSCRF_INS_REF : | 
4F 0 € O9A 4$: BLBC STATUS, 10$ ; | 
1 04 AE €E9 0009D 5$: BLBC DEFINI TION. 6% > 1984 
19 02 =A 0 E0 OA BBS #3, 2(R7), 6$ ; 
15 6A 1 Ft O06 BBC #1, LIBSGL_CREFLAGS, 6$ : 1985 
40 A8 SF OOOAA PUSHAB A_ZERO : 1987 
| 
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DISKSVMSMASTER: CLIBRAR.SRCICROSS.B32; 


VAX-11 Bliss-32 V4.0- 


39:58 


Sep- 1986 12 


15- 
14- 


pro_spsc 


” 
" 
a 

‘ 
=3 
+> 


mer mT 
an oo 
ow oo 
-— num 
Peta te tea *e te *e Fe te te te Fete Fe 48 Fe FS Fe Fa Fe 
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a 
* 
ue “ 
w © w 
ac <« -~ co SO « 
‘J aq ec & t 
”n ” wn 
= w ~A *s -_ 2 
—_— inne ue 
Oo wa 8 w& w w i 
2 «usm it -— oa fc uh 
— >xcot a2Z2za a &oO 
ae ur ooo So Ue 
—- @oaeF * z-=zt =&= * 
”» w@®D -@ eeu ue @s 
aI NO 2D c Cc HHO 
nAOnViwDyenougze Vv woe 
«omo tt —- wor i a - 
@e@eaem << wew wo @ “<< * 
Sree etn TW OO A -OME 
OWT JB MB LO BO ID ITBV“®B 
oa @® 
ZIrrIreowwsa FTITtjw > oo 
MMMM JDCMNM NM AO>O>w IO S>e- 
DSDDD<—YUOMDD]DA Oo ecoOjDa< IOw 
aaaavr@M@Maaact Ot oztavrosta 
o- «* of os 
A AA RO 
Po) ~o or 
QOKKMNOA VEMOOVER NEUE MOO YU 


KMMOMOOMOVVVvAcocowwwww 
SOOCOCSCOOCOOCOSOOOoOOOoOoOoSoo 
SOOGCGOCOCGOOOOOSOOOOCOSoSoOo 
COOOCOCOCOCOCOCOOCOOOOOOOCooO 


we Ou @OOrmuwvwerOwr-wooaoory 
POO &’ WWOOO VW - O Ou WOO 
WDODNOUDOODWOMNDOMO— 
Ot VOMO TZ ET TO DBVOOWN OM 
o wet ooamt w 4 
o ow woo - o 
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Oo o oOo 
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Oo 
- 
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237 bytes, Routine Base: S$CODE$ + OSFC 


; Routine Size: 


45 


vt ing 


52 00006 

0000' 

0000" CF 0000" 
0000v CF 
48 

23 04 

06 a3 04 
5 

50 06 


- Linedesc Cdsc$a-pointerd; 


pro_spsc 

; 005 1 ROUTINE Lib_crfout (linedesc) = 

3 foe BEGIN a 

; 4 ! 

: 345 443 This routine outputs a Line to the Listing file 
3 901 O16 Inputs: 

: 90 Og i Linedesc 

; 904 1 ! 

: She O18 

: 907 O16 Linedesc : REF BBLOCK; 

: 909 O18 LOCAL 

. on $36 ei 

; gig 031 Linecount = .linecount + 1; 

; 91 0 ¢ IF .lLinecount GTR =< Sngaperpage 

; «916 0 THEN for sore (newpage ()); 

3; 915 024 LibSal_rab prepay ares = .linedesc Cdsc$w_length]; 
: gig 3 5 LibSal_rab rab$l_rbf] = 

; 4 3 ; Eliminate extra blanks from the end of the Line 
: 920 029 2 if .lib$al_rab Crab$w_rsz) NEQ 0 

: 95) 3 : THEN BEGIN 

; 353 0 é 4 HIL 

3 ose 0 4 ptr = sete - 1; 

: 925 20 4 6 HSRCHAR (.ptr) EQL ZASCII ° ' 

: 926 035 4 

: 358 $039 3 END 

: 4 pP ast rms_perform (SPUT (RAB = Lib$al_rab), 

: oR p th Lib$_writeer 

+ 932 2041 2 RETURN true 

; 933 2042 1 END; 


-EXTRN 


0004 00000 LIB_CArouT: ‘ 


SOWMOOOOdu— 


O-—-NooDomn—o 


address of string descriptor for Line 


tr : g{fbSal_red Crab$l_rbf] + .lib$al_rab Crab$w_rsz); 


V4.0-742 p 
UIBRAR-SRCICROSS.B32-9" (205 


'Count the Line 
'If its time for a new page 
' then do it now 


DO Lib$al_rab Crab$w_rsz] = .Lib$Sal_rab Crab$w_rsz] - 1; 


$ ° 
-libSal_rab Crab$l_stvJ, 1, Lib$gl_outfdb Cfdb$l_namdesc]); 


'Of Lib_crfout 


SYS$PUT 
Save R2 ; 2005 
LIBSAL_RAB+34, R2 ; 

LINEC : 2021 

LINECOUNT, LINESPERPAGE ; 2022 

#0, NEWPAGE > 2023 

STATUS, 5$ ; 

LINEDESC, RO > 2024 

(RO), LIBSAL_RAB+34 ; 

4(ROS, LIBSAC_RAB+40 : 2025 006 
| JBSAL_RABYS > RO ; 2029 nai 
LIBSAL_RAB+40, PTR : 2031 


13 
LIB_CROSS 16-Se $1984 01:48:05 VAX-11 Bliss-32 V4.0-742 
y0e2000 pro_spsc 122865-1 384 93:99:98 DISKSVMSMASTER:CLIBRAR.SRCICROSS. 
1 


20 70 91 00031 2$: CMPB =(PTR), #32 
04 is 8 BNEQ 3$ 
6¢ B 0 § DECW L{BSAL_ RAS+34 
DE A? oF 60 A 3$ PUSHAB CT BSAL_ ~~. 
000000006 00 gf Fe 0030 CALLS #1, srseey 
1A 0 €E8 00044 BLBS STAT as. 
EA a¢ DD 00047 PUSHL LIBSAL “RAB+12 
50 DD Spee abe. STAT 
7E 0000G CF 10 C1 0004¢ ADDL #16, ‘T1es6L -OUTFDB, =(SP) 
01 dD 00052 PUSHL #1 
008610D2 BE DD BR Oat PUSHL at 
000000006 00 5 FB 5A CALLS C [aSSIGNAL 
50 01 00 00061 4$ MOVL 1, RO 
04 00064 5$ RET 


; Routine Size: 101 bytes, Routine Base: SCODE$ + 06E9 


B32:19" 


Sete Se Fe Ge Fe Ge Se Ge Fe Ge Ge Ge Se Ge 


-_ 


43. 
- 
2034 
2036 


2040 


ve 


00Cc 


S 


sss°s 


M13 
U8 CROSS 16-Sep-1984 01:48:03 VAX=11 Bliss-32 V4.0-7 4 
4=000 Happs 14-Sep B=19 4 12:37:58 DISKSVMSMASTER: CLIBRAR.SRCICROSS. B32: 79 * (21) 

3 93> 043 4 Sout ine Newpage = | 
es gi | 
; t 678 | ; routine outputs a new page to the Listing file 
: 940 Bes 
> 941 04 Mpagebutfer BBLOCK Clib$c -lisrectng], 
; 94 050 aes BBLOCK Cdsc$c _s_blnJ; 
; 94 051 
> 944 O26 
; oF S27 w sinoten = pagedesc (Cdsc$w_length] : WORD; 
> 94 055 pagedesc (dsc$w_length] = Lib$c_Lisreclng; 
> 948 056 pagedesc (dsc$a_pointer] = pagebuffer; 
> 949 057 agenum = .pagenum + 1; 'Next page 
; 950 2058 thecount = Q; 'Start count at 0 
; 951 2059 portere (SYSSFAQ (fao snewpage Linelen, pagedesc)); 
; 226 2060 perform (Lib_crfout (Paged esc)); 
3; 9 $0e3 eoedesc Cdsc$w_length) LibSe. lisrecing; 
; 954 O66 inecount = 0; 'Form feed does not count as a Line 
s 955 P 206 perform (SYS$FAO (fao_pageheader, Linelen, pa gede 'Format page header 
: 956 P 2064 -curhéader, Lib$gl_libfdb Cfdb$l “nendesc), 
s 957 2065 current_time, " eentantis 
; 958 2066 2 perform (Lib_crfout cpoppeees) is ! and output it 
; 959 2067 2 RETURN" (outputsubhdr ( ‘Output sub headers 
:; 960 2068 2 RET “" N true 
; 961 2069 1 END 'Of newpage 


000C 00000 NEWPAGE:.WORD Save R2,R3 > 2043 
53 000000006 00 9E 00002 MOVAB SYS$FAO, R3 ; 
52 0000" CF 9E 00009 MOVAB PAGENUM Re : 
5E FF74 CE 9E 90005 MOVAB =-140(S : 
6E 84 8F 98 0001 MOVZBW #132 DESC : 2055 
04 AE 08 AE 9E 00017 MOVAB AE PAGEDESC+4 : 2056 
62 D6 0001C INCL  PAGEN : 2057 
F8 Ad D4 OOOTE CLRL CINE COUNT : 2058 
5E DD 00021 PUSHL Sp : 2059 
04 AE 9F 00023 PUSHAB LEN : 
O0Cc C2 9F 00026 PUSHAB FAO_NEWPAGE : 
63 F 00 A CALLS #3, SYSS$FAO : 
44 E9 00020 LBC = STATUS, 1$ ; 
E DD 00030 PUSHL SP : 2060 
FF64 CF or FB 00 : CALLS #1, LIB_CRFOUT ; 
3A 0 E 00 BLBC 1 : 
bE 84 BF 9B O003A MOVZBW #32 PAGEDESC > 2061 
F8 A2 04 000 : CLRL NE COU ; 2062 
62 DD 0004 PUSHL bt GENUR > 206 
04 Ad 9F 00043 PUSHAB CURRENT IME : 
7E 00006 CF 10 C1 00046 ADDL3 #6. tisscL _LIBFDB, -(SP) : 
14 A2 DD 0004C PUSHL  CURHEAD : 
10 AE OF 0 4F PUSHAB PAGEDES r : 
14 AE OF 32 PUSHAB LINELEN : 
0004 C2 9F 0005 PUSHAB FAO_PAGEHEADER : 


pro_spsc 


117 bytes, 


WN "SO OONOULS WN oO 


bed tet tet PRP PRN BP 


86 


POPOPONIPOPEPoNoNononononononofofnononononofrofrorner 
jofelolo lola lololololololololololololololololololo) 


wooovowoe 


99:98 


Omomovinoe 
-—COo°o—mMmon 
fou wowo ow 


ouom~am~nom-n 
FeMOO MOO 


polo flolo lo lolololo) 
lojlololelelololoilo!) 
fo fo lo lolololoiojao) 
NSNAAQAOMUIWN 


= 
wn 
oe 


SCODES + O74E 
A outputsubhdr 
i Output the cross referenc sub headers 


BBLOCK Clib$c_lisrecing], 
: BBLOCK Cdsc$c_s_bln); 


@o 
= 
2 


Linedesc esetee Loney 
subhdrlinel = 
subhdrline2 = 


[nedose Cdsc$w_length] = 
inedesc Cdsc$a_pointer) = 
erform (ib. grfout (Linedesc) 
length] = Libs: Lisreclng; 
erfora (59 SSPko (subhdr ine! 
erform (ibe crfout ( 
inedesc bdse Su Length) = tit ts Lisreclng; 
S$FAO (subhdrline2 
erform (ibe crfout (Linedesc)); 


pba ae 4 + yo ay _s ubln : 


=POIPIPIPIPIPINPINININIPINPINININININININININININ — 


003C 00000 OUTPUTSUBHDR: 
- WORD 


MOOS SOOOOOM 
mno—mmmonmon 


Sooooooooooo 
COOOCOCOOOOoOoSoo 


WRIPONONON OO 


9 > NMOMOwm 


© 
mn 
SoOoooooooooo 


7 SYS$FA0 
STATUS, 


#1, LIB_CRFOUT 
STATUS, -1 

#0, OUfPUTSUBHDR 
STATUS, 1$ 


° 


pty he sonar none for Line 1 


! and 


‘Write a blank Line 


‘Format Line 1 
' and output it 


‘Format line 2 
! and output it 


'Of outputsubhdr 


e R2,R3,R4,R5 
RFOUT. R5 
AO, R4& 
shh, 5 
URSUBHOR R3 
UFFER, LINEDESC+4 
B_CRFOUT 

1$ 


CINEDESC 


Y2R2NVaurraortiuron 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CLIBRAR. SRCICROSS. B32. a 


CocoC0D CoCo 
OunSn— 


vou=600 


; Routine Size: 


: Routine Size: 


995 
996 


fe 


PUSHAB 
PUSHL 


~EXTRN 


Sep-1986 12:49:58 DISKSVMSMAS 


Re cre 
R 


SYS$FAO 


STATUS, 1$ 


#1, LIB_CRFOUT 


SYS$F AO 
erwee 1$ 

#1, LIB_CRFOUT 
ne he “1$ 


'Of crferror 


Save Ayo te 
ERRORCODE 
#1, LIBSSIGNAL 
#1, RO 


LIBSSIGNAL 


pro_spsc 1 
04 AE OF 3 
Bb 00% 
4 Fe 
4 44 Bo 
65 of i a045 
1C 0 3 004 
6E 84 gf B gee 
E DD QO04A 
04 af 9F Q004C 
r gy Pe dane 
08 9 £9 0054 
5E DD 00057 
65 01 FB 00059 
03 50 €9 0005C 
50 01 DO O005F 
04 00062 1$: 
99 bytes, Routine Base: $CODE$ + 07C3 
2095 1 ROUTINE crferror (errorcode) = 
ash 5 grein 
34: § This routine is called by cross reference if an error is detected 
2100 2 SIGNAL (.errorcode); 
2101 2 RETURN true 
2102 1 END; 
0000 00000 CRFERRGR: 
04 AC DD 00002 
000000006 00 01 FB 00005 
50 01 00 0000C 
04 0000F 
16 bytes, Routine Base: $CODE$ + 0826 
2103 END 
2104 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


$732 V4.0-742 
TER: CLIBRAR. SRCICROSS .B32; 


Page 


Sete Se Se Se Se Ge Se Be Se Fe Se Fe Fe Se Be Ge Se 


(245 


‘ 
| 
2089, 


2090 
2091 


2092 


2093 
2094 


C 14 
LIB_CROSS 16-Sep-1984 03:38:03 VAX-11 Bliss-32 V4.0-742 47. 
v04=000 pro_spsc 14-Sep-1984 12:37:58 DISKSVMSMASTER: CLIBRAR. SRCICROSS.B32- 19 * (21) 
; SOWNS 878 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, eit aries 
: SPLITS 285 NOVEC.NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2102 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON, NOP IC ,ALIGN(2) 
: Library Statistics 
Behe oe eR eS ee eee SPEGOLG Seeasnas Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 103 1 581 00:01.0 
H COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CROSS/OBJ=0BJ$:CROSS MSRC$:CROSS/UPDATE=(ENH$: CROSS) 


| 
| 
| 
; Size: 2102 cede + 1466 data bytes | 
; Run Time: 00:50.3 

Elapsed Time: 01:37.7 


250 
; Lexemes/CPU-Min: 31507 
: sonety ieee 354 pages 


> Lines/CPU Min: 
: Compi 


tion Complete 


"AH: BT13A-SE 
VAX/VMS V4.0 


0200 


TIA r 


ON 


R 


